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Le Boss est de retour et il n’est 
pas content : des individus 
louches essaient de lui ravir sa 
place. C’est pourquoi, aidé de 
son acolyte, (ça veut dire qu’on 
peut jouer à deux. Eh bien oui, 


on peut jouer à deux !) il va 
livrer bataille. Résultat des 
courses : c’est un véritable jeu 
de massacre où les munitions 
sont limitées alors que les 
ennemis, non. 
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BOSS 2 


IURRETIT III TITI TI ITS 
20 ‘#1 . #4 
30 ‘## BOSS OF CHICAGO ## 
40 ‘#4 #1 
50 "#4 Il x+ 
60 ‘#1 #5 
10 "4x BY F.BARNABE «4 
8Q ‘#1 #4 
CURE TTTESE TESTS TITI TTL 
100 ? 


110 MODE 1:INK 0,0:BORDER @:INK 1,1 
G:INK 2,10:INK 3,26 

120 SYMBOL AFTER 94 

130 MEMORY 26000 


?LA 
LB 
)LC 
>LD 
)LE 
?LF 
>LG 
>LH 
>LJ 
>RB 
4 


>NJ 
HA 


140 GOSUB 740 >HF 

150 FOR 1-26192 TO 26203:READ A$:PO >ZF 

KE 1, VAL("&M+AS) :NEXT 

166 DATA 1,0,40,11,5C,66,21,0,C0,ED >GC 
:B0,C9 

170 LOCATE 1,10 >WH 
180 RESTORE 630:adresse=49340:taill >FA 

e=21:LIGNE=3:G0SUB 310 

190 RESTORE 310:adresse=49822:taill >FJ 

e=15:LIGNE=7:G0SUB 310 

200 PRINT CHR$(23)+CHR$ (3); : TAG:ENV )ED 
1,30,0,1,127,-1,15:SOUND 129,0, 240 
,15,1,0,10 

210 PLOT -2,0,2:MO0VE 260,394:PRINT" >NC 

BOSS OF"; 

220 PLOT -2,0,3:MO0VE 256,398:PRINT" >NP 

BOSS OF"; 

230 PLOT -2,0,2:MOVE 200,50:PRINT"F >WG 
.BARNABE & CPC"; 

240 PLOT -2,0,3:M0VE 196,54:PRINT"F >WD 
.BARNABE & CPC"; 

250 TAGOFF )VB 

260 RESTORE 260:FOR 1=26192 TO 2620 >BZ 

3:READ A:POKE I ,A:NEXT 

276 DATA 1,0,64,17,0,192,33,92,102, >LR 

237,176,201 

280 FOR 1=26170 TO 26176:READ A$:PO >ZQ 

KE 1, VAL("&"+A$) :NEXT 


290 DATA CD,60,BB,32,41,b6,C9 )WD 
300 RUN° !CHICAGO® HP 
310 RE 
320 ’ LECTEUR DATA RF 
330 >RG 


340 FOR L=@ TO LIGNE:FOR 2-0 TO 7:F >CA 
OR W=0 TO taille:READ a$ 

350 IF LEN(a$)>2 THEN 380 >RZ 
360 POKE adresse+W+Z#2048+L#80, VAL( >KX 
"h"+ta$) 


376 NEXT:NEXT:NEXT:RETURN JAU 
380 b$=MID$(a$, 3, LEN(a$)-2) DUY 
390 a$=LEFT$(a$,2) )LE 


400 FOR C=W TO W+VAL(b$)-1:POKE adr >MD 
egse+C+Z#2048+L480, VAL("L"+A$) 
410 NEXT:W=W+VAL(b$)-1:G0T0 370 >ZF 


420 RG 
430 * DATA 1 >RH 
440 >RJ 


450 DATA 004 ,2,6,0010,004,2,E,085, >KK 
F,4,093, 004,8, 1,8,004,F, A,0,0,6, 004 
,6,7,004, 2,004, À 

460 DATA 004,3,C,004,7,F,9,8,1,4,00 >QW 
6,8,005,F, 0,2, 4,004, 30, 20,E, 004,60, 





002, 4,C0,005,C0, C, 004, FO, C0, 0,9, E0 
470 DATA 004,30, C1,8,C,003,F0,80,0, DHF 
16, F0, 004, 10, 1,3, 3,003, 60, 80,002, E0 
,004,4,3,B,7,0,E,5,30, 8,0, 7,20, 004, 
4,F,3,7,1,E,4,8,4,0,7,8 

480 DATA 005,4,2,F,3,C,9,8,D,8,F,8, CP 
004,1,9,4,D,1,D,B,2A,6,F,F,0,004,1, 
2,5,E, 3,0, B, 24,6, 7,E, 0, 003, 1, 49,0,9 
,4,3,D,9,1D,7,7,C,0 

490 DATA 003,6,E0,0,F,8,3,D,C,2E,6, CE 
B,8,0,002,1,9,68,3,F,0,3,1,F,15,6,6 
002,002, 7,E,6,7,E,8,F,7,0E2,4,003, 
6,1,F,19,89,F,A,0,F,B,D,E,8C, 003 

500 DATA 0,7,9,E0,CD,F,A,0,F,7,D,E, BL 
6,003,1,C,10,E0,45,F,8,4,F,3,E,G,E, 
003, 7,002, F0,46,C,1,C,E,B,F,6,E, 003 
,6,0,0,70,2,0,3,8,E,0F2,A,E, 003 

510 DATA 004,2, 1,E,0,E,7,F,A,C,003, DHR 
005,F,8,4,E,0F2, A,C,003,004,F,C,3,C 
,0,F,F,A,C,003,003,3,F,3,F,C,F0,7,F 
,À,E, 003 

520 DATA 003,5,0,7,F,C,F0,7,F,A,E,0 )2Q 
03,003, A,8,D,F,C,E0, 7,F,E,C, 003, 003 
,0,9,8,7,0,0,7,F,A,E, 003,003, 1,9,4, 
F,C,0,7,F,A,C, 003 

530 DATA 003,1,3,B,F,C,0,7,F,E, 4,00 DUB 
3,003,2,3,5,F,C,0,5,B,B, 4,083, 003, 2 
,7,8,F,C,0,5,,F,4,003,003,4,7,7,F, 
E,0, A, À,D, 4,003 

540 DATA 003,8,6,D,F,E,0, A, A,9, 4,00 )FB 
3,002,1,8,5,B,F,E,0, A, 4,9, 2,003, 002 
,1,8,F,7,F,E,0,A,4,9, A, 003,002, 3,0, 
E,F,F,E,0,A,0,5,A,003 

550 DATA 002,3,0,F,7,F,E,0,E,D,5,A, )GA 
003,002, 7,1,E,F,F,E,0,C,D,5,A,003,0 
02,E,1,D,F,F,E,0,F,5,5, À, 003, 002,3, 
3,A,0F3,0,D,5,5,9,003 

560 DATA 003,F,D,0F3,0,D,053,003,00 D AH 
3,3,8,0F3,1,5,6,5,5,003,003,3,0F4, 1 
,1,4,5,5,003,003,7,F,0,F,F,1,5,A,5, 
5,003 

570 DATA 003,6,4,5,3,E,1,5,A,5,5,00 DRH 
3,004,2,5,8,0,1,6,C,5,2,8,0,0,004, 2 
,6,4,0,2,6,C,5,2,8,0,0,004,1,2,A,0, 
2,A,C,5,2,8,0,0 

580 DATA 004,1,2,A,0,2,A,8,5,2,8,0, >GC 
0,005, A,A,0,2,8,8,7,A,8,002,004,1,1 
,0,0,2,F,0,4,7,8,0,0,005, 4,002, 3,00 
2,17,6,003 

590 DATA 005,F,C,0,2,F,8,3,F,003,00 DUY 
4,3,F,C,002,F,8,3,F,8,002,004,3,C,0 
02,7,E,002,7,C,0,0,008, 7,8, 006, 0016 








,0016,0016, 0016 

600 ? RG 
610 DATA 2 >RH 
620 ? RJ 


630 DATA 006,88, 77,0014,0,0,11,CC,2 DEG 
2,0,CC,003, 77,0, FF2, 002, 77,0,0,11,C 
F,0,0,0,67,3F,33,8,CF, 77,0,11,8F,CC 
,CF, 11,88, 11,8F,CC, 0,67,3B,8,0,0,EF 
,B,33,C,CF, 77,C,33,8E,C, CF, 11,8E, 33 
,8E, C,0,EF, 8, 8C 

640 DATA 0,11,EF,8,33,C,CF, 77,C, 77, 
8E,0,CF, 11,6E, 77,8E,0,11,EF,8, 46,0, 
11,EF,8,33,C,CF,77,C,77,6E,0,CF, 11, 
8E, 77,8E,0,11,EF,8,46 

650 DATA 0,33,EF,8,33,C,CF,77,C,FF, 
8E,0,CF,11,6E, FF,6E, 0, 33,EF,8, 23,0, 
33,EF,8,33,FF, CF, 77,C,FF,8E,0,FF, DD 
,8Ë, FF, 8E,0,33,EF,8, 23 

660 DATA 0,33,EF,8,33,FF, CF, 77,C,FF RZ 
,8E,0,FF, DD, 8E, FF,9F, EE, 33,EF,8, 23, 
0,11,EF,8,33,F,CF, 77,0, 77,8E,0,CF,1 
1,68, 77,8E,2F,11,EF,8, 47 

676 DATA 0,11,EF,8,33,C,CF,77,C,77, )JD 
8E,0,CF, 11,6E, 77,8E, 23, 11,EF, 6, 46,0 
,0,EF,8,33,C,CF,77,C,33,6E,0,CF, 11, 

8E, 33, 8E, 23,0, EF,8,8E 

686 DATA 0,0,67,3B,33,C,CF, 77,C,13, DEA 
8E, CC, CF, 11,8E,11,8E, CF,0,67,3B, 4,0 
,0,17,CF,33,C, CF, 77,0,0, 7F,C,CF, 11, 
8E,0,77,C,0,17,CF,8 

690 DATA 0,0,3,E,11,C,47,3,C,0,7,8, DAA 
47,0,8E,0,7,0,06,1,E,0,005,4,3,005,3 
,0,6,007 

700 DATA 0022, 008, 11,FF5, 008, 009,FF DUL 
5,8C,007,009,7,6F,8,CF,F,E, 607, 4610 
,67,8,CF, 009, 0010,67,8, CF, 009, 0010, 
67,8,CF,009,0010,67,8,CF, 009 

710 DATA 0010,67,8,CF, 009,0010,67,8 >2G 
,CF,009,0010,67,8,CF,009,0010,67,8, 
CF,009,0010,67,8,CF,009,0010,67,8,C 
F,009, 009, FF4,EF, 008, 009, 77,FF4,8,0 
07,009, 3,0F4,C, 007 


LA 


JQ 


V 


MP 


720 ? >RK 
730 * SYNBOL,... TA 
740 ? >TB 


750 SYHBOL 96, LFF,LFF, LEF,RE3, RC7,& DML 
F7,LFF,&FF 
760 SYMBOL 97,&FF,LFF,LFF, FF, LFF,& DNN 
FF,&FF,&FF 
770 SYHBOL 98, LAA, 255, LAA, 855, &AA,& DLR 
55, LAA, 455 
780 SYHBOL 236,418, &42, 1, &B1, &81,& DIN 


0,&42, 418 
790 SYMBOL 237,418, 442, LB, LB9, LOD,& DKJ 
10,442, &18 

800 SYMBOL 99, 4FE, LAA, 456, k0,LEF, &A GR 
A,&65 

810 SYMBOL 100,LFE, FE, LFE, 0, LEF,& DHB 
EF,&EF 

820 SYMBOL 101,LFE, LEE, 4CG,&10,4C7, DJE 
LEF,LEF 

830 SYMBOL 102, 40,454, L7A,R7C, R7E, & 
7C,&3E 

840 SYMBOL 103,LEE, LEE, &EE, LEE, LEE, 
LEE, LEE, &EE 

850 SYMBOL 104, L7E, &C3, &BD, KBD, LBD, 
&BD,&C3, &7E 

860 SYMBOL 105,40, LFF, LFF, LA2, 0, 80 
,&FF,&FF 

870 SYMBOL 106, LAA, LAA, LA, LAA, LAA, 
LAA, AA, LAA 

880 SYMBOL 107,4E0, LEO, LEO, LEO, LEO, MU 
LEO, LEO, LEO 

890 SYHBOL 108,4FF, 40, LFE, LFE, &FE,& 
FE, &FE, &FF 

900 SYMBOL 109, 4D7, 40, LAB, 855, LAF,& 
57, k4B, &DS 

910 SYMBOL 110,LFE,&FE, LFE, LFE, FE, 
&FE,&FE,&FE 

920 SYHBOL 111,47, 47,47, 47,87, L7, 47 
,&7 

930 SYHBOL 112,418, 434, 434,434, 434, 
&3C, 40, &3C 

940 SYMBOL 113,40,&1F,43F,&7D,LFO,& )LQ 
BA, &BC, &FB 

950 SYHBOL 114,43, 41, k4,43, 470, LED, 
&5,&3E 

960 SYHBOL 115, 4D8, LBO, 70, L94, L3C, 
&FO, 434, LEG 

970 SYHBOL 116,41E, 467, k61,LF1, LEO, 
LA, LIA,&16 

980 SYMBOL 117, 4A,LAF, RAF, AF,L6F, 
FE, &5E, LIE 

990 SYHBOL 118,41, 43,40, LE, 43, 40, 40 
IC 

1000 SYMBOL 119,470,430, 40, LOC, LFB, 
40, 496, &77 

1010 SYMBOL 120,424, L5A, 412,463, 473 
,k36,LE, &3E 

1020 SYMBOL 121,433, 46B, &1D,42D, &75 
,k35,42B, 428 

1030 SYMBOL 122,40, 418,430, 419, L7F, 
&7E,&7C, &3C 

1040 RETURN 












CHICAGO 


PUMRELLIEEEISE ELITE ITS) )LA 
20 ‘#4 #+ >LB 
30 ‘#* BOSS OF CHICAGO #+# >LC 
40 ‘## #1 >LD 
50 ‘#4 Il #+ LE 
60 ‘xx #+ >LF 
70 "4x PAR F.BARNABE #4 >LG 
80 ’## #1 >LH 
C'MEETETTTTEF ETES ESS ESES >LJ 
100 )RB 
110 * INITIALISATIUN >RC 
120 ? )RD 
130 HODE 1:INK 1,16:1INK 2,10 >UH 


140 WINDOW #2,3,38,2,17:PEN#2,0:WIN 
DOW #3,3,15,19,24:WINDON #4,26,38, 1 
9,24:WINDOW #5,1,40,20,25 


>DG 


150 GOSUB 1500 >PD 
160 FOR 1=1 TO 28:LOCATE 1,1+24:PRI >LQ 
NT:NEXT 

170 CLS:INK 2,26:INK 1,10 )TZ 


180 PLOT 30,384,1:DRAW 608,384:DRAW >HU 
608,126:DRAU 30,126:DRAW 30,384 
190 PLOT 30,0:DRAW 30,112:DRAU 240, 
112:DRAW 240,0:DRAW 30,0 

200 PLOT 398,0:DRAW 398,112:DRAW 60 


8,112:DRAU 608,0:DRAW 398,0 


>BK 


>FH 


210 FOR 1=1 TO 24:LOCATE 1,1:PRINT" MG 

a":LOCATE 40, 1:PRINT"a":NEXT 

226 DIM LEVPOS(33,3) >PR 

230 LEVEL=1:G0SUB 1820:1F ARME=2 TH DHL 

EN 410 

240 ? >RG 
>RH 


250 ’ VISEUR i 


)RJ 


SI : 


270 PLOT -2,0,2:TAGOFF#1:PRINT#1,CH >BA 
R$(23)+CHR$ (3) ; : TAGH1 


280 MOVE X1,Y1:PRINTHI,CHRS(236); BY 
290 J1=J0Y(0) >LH 
300 IF (J1 AND 16)C>0 THEN IF CHAR1 DKF 
>-1 THEN 600 
310 IF J1=0 THEN IF ARME-0 OR ARME= DUH 
2 THEN 410 ELSE 270 
320 PLOT -2,0,1:TAGOFF#1:PRINT#1,CH DUX 
R#(23)+CHR$ (2); :TAGHA:MOVE X1,Y1:PR 
INT#1, CHR# (143) ; 
330 1F (J1 AND 1)€0 THEN Y1=Y1+16 >ZB 
340 IF (J1 AND 2)€0 THEN Y1=Y1-16 >2F 
350 IF (J1 AND 4)€6 THEN X1=X1-16 >2ZG 
360 IF (J1 AND 8)C)0 THEN X1=X1+16  >ZK 
370 IF ARME-0 OR ARME=2 THEN 410 EL FR 
SE 270 
380 ? >TB 
390 ' VISEUR 2 »TC 
400 ' RE 
410 PLOT -2,0,2:TAGOFF#1:PRINTH1,CH >BU 
R$(23)+CHR$ (3) ; : TAGH1 
420 MOVE X2,Y2:PRINT#1,CHRS(236);  >BW 
430 GOSUB 520 >HD 
440 IF (J2 AND 16)C0 THEN IF CHAR2 DLL 
>-1 THEN 750 
450 1F J2-0 THEN IF ARME-0 OR ARME= DUN 
1 THEN 270 ELSE 410 
460 PLOT -2,0,1:TAGUFF#1:PRINT#1,CH UE 
R$(23)+CHR$ (2) ; :TAGH1:MOVE X2, Y2:PR 
INTH1, CHR (143) ; 
470 IF (J2 AND 1)<30 THEN Y2=Y2+16 >2ZK 
480 IF (J2 AND 2)<>0 THEN Y2=Y2-16 >2P 
490 1F (J2 AND 4)<>0 THEN X2-X2-16 >2Q 
500 IF (J2 AND 8)€6 THEN X2=12+16 DZ] 
510 IF ARME-0 OR ARME=1 THEN 270 EL FL 
SE 410 
520 J2-0 »VG 
530 IF INKEY(0)=@ THEN J2=J2#1 >IM 
540 IF INKEY(2)=Q THEN J2=J2+2 >IR 
550 IF INKEY(8)=0 THEN J2-J2+4 )XB 
560 IF INKEY(1)=Q THEN J2-J2+8 >XZ 
-1 570 IF INKEY(47)=0 THEN J2-J2#16  DZN 
| 580 RETURN )ZJ 
590 " >TE 
600 ? TIRI >RG 
610 ’ >RH 


620 IF 11/16+1€1 OR 26-Y1/16€1 OR X >JB 
1/16+1>40 OR 26-Y1/16)26 THEN 330 

630 MOVE X1,Y1:PRINT#1,CHR#(237); BY 
640 ENV 1,30,0,1,127,-1,15:SOUND 12 >TY 
9,0,240,15,1,0,10 


650 PLOT -2,0,1:TAGOFF#1:PRINT#1, CH 

R$(23)+CHR$ (2) ; : TAGH1:MOVE X1,Y1:PR 
INT#1,CHR$(143) ; 

660 DI:LOCATE X1/16+1,26-Y1/16:CALL 
26170:A$=CHR$(PEEK(26177)):El 

670 IF A$="d" THEN DI:LOCATE X1/16+ 
1,26-Y1/16:PRINT"e":EI 

680 1F A$>"p" AND Y150 THEN X=X1:Y 
=Ÿ1:GOSUB 880: SCORE 1 =SCORE1 + SCORE : D 
I:LOCATE 10,20:PRINT SCORE :EI 

690 IF A$="a" THEN DI:LOCATE X1/16+ 
1,26-Y1/16:PRINT CHR$(96):EI 

700 MUNI1=MUNI1-1:DI:LOCATE 4+MUNI 1 
,22:PRINT" ":El:1F MUNI1=0 THEN MUN 
11=9:CHAR{=CHAR1-1:DI :LOCATE 4+CHAR 
1,24:PRINT" ":EI:1F CHAR1<)>-1 THEN 
DI:LOCATE 4,22:PRINT STRING$(9,"p") 
‘El 

710 GOTO 330 

720 ? 

730 ' TIR2 

740 

750 IF X2/16+1€1 OR 26-Y2/16C1 OR X 

2/16+1»40 OR 26-Y2/16)26 THEN 460 
760 MOVE X2,Y2:PRINT#{,CHR$(237): 

770 ENV 1,30,0,1,127,-1,15:SOUND 12 

9,0,240,15,1,0,10 

780 PLOT -2,0,1:TAGOFF#1:PRINT#{,CH 

R$(23)+CHR$ (2) ; :TAGHL:MOVE X2,Y2:PR 
INT#1,CHR$(143) ; 

190 DI:LOCATE X2/16+1,26-Y2/16:CALL 
26170:A$-CHR$(PEEK(26177)):EI 

800 IF A$="d" THEN DI:LOCATE X2/16+ 

1,26-Y2/16:PRINT'e":EI 

810 IF A$>"p" AND Y2)50 THEN X=X2:Y 

=Y2:G0SUB 880 :SCORE2=SCORE2+SCORE :D 
[:LOCATE 33,20:PRINT SCORE2:E1 

820 IF A$="a" THEN DI:LOCATE X2/16+ 
1,26-Y2/16:PRINT CHR$(96):EI 

830 MUNI2=MUN12-1:DI:LOCATE 37-HUNI 

2,22:PRINT" ":EI:1F MUNI2=0 THEN MU 

N12=9:CHAR2=CHAR2-1:DI:LOCATE 37-CH 

AR2Z,24:PRINT" ":El:1F CHAR2O-1 THE 

N DI:LOCATE 29,22:PRINT STRING$(9," 
p'):El 

840 GOTO 460 

850 ? 

860 ? ICI L'ENNENI MEURT... 

870 

880 DI:BORDER G:ENEMI=ENEMI -1:ATUER 
=ATUER-1:SCORE=10:1F ATUER-=0 AND A$ 

€>"q" THEN LEVEL=LEVEL+1 :CLS#2: LOCA 


>UD 


be. 


MT 


= <d 


CP 


vV 


EA 


>ZA 
>RK 
TA 
>)TB 
>JP 


BE 
>TC 


)vB 


>HZ 


»2J 
>TD 
TE 
>TF 
)XE 











TE #2,1,1:PRINT#2,REMAIN(Q) :GOSUB 1 
820:E1 : SCORE=15 : RETURN 

8906 IF A$="r" THEN LOCATE X/16+1,26 
-Y/16:PRINT"ff":LOCATE X/16+1,27-Y/ 
16:PRINT"ff":BORDER 0:EI :RETURN 

900 1F A$="s" THEN LOCATE X/16,26-Y 
JAG:PRINT"ff":LOCATE X/16,27-Y/16:P 
RINT"ff":BORDER Q:E1 :RETURN 

910 IF A$="t" THEN LOCATE X/16+1,25 
-Y/16:PRINT"ff":LOCATE X/16+1,26-Y/ 
16:PRINT"ff":BORDER 0:EI :RETURN 

920 1F A$="u" THEN LOCATE X/16,25-Y 
FAG:PRINT"ff":LOCATE X/16,26-Y/16:P 
RINT"ff":BORDER Q:E1:RETURN 

930 1F A$="v" THEN LOCATE X/16+1,26 
-Y/16:PRINT" ":LOCATE X/16+1,27-Y/ 
16:PRINT" ":BORDER 0:EI :RETURN 

940 1F A$="u" THEN LOCATE X/16,26-Y 
JAG:PRINT" ":LOCATE X/16,27-Y/16:P 
RINT" ":BORDER 0:EI:RETURN 

950 IF A$="x" THEN LOCATE X/16+1,25 
-Y/16:PRINT" ":LOCATE X/16+1,26-Y/ 
16:PRINT" ":BORDER 0:EI :RETURN 

960 IF A$="y" THEN LOCATE X/16,25-Y 
/AG:PRINT" ":LOCATE X/16,26-Y/16:P 
RINT" ":BORDER 0:EI:RETURN 

970 IF A$="z" THEN LOCATE X/16+1,26 
-Y/16:PRINT"f":BORDER @:E1:SCORE=15 
RETURN 


988 1F A$="q" THEN 1440 
990 ? 

1000 ’ LA, IL REVIT 
1010 ? 


1020 GOSUB 1100:CH=INT(RND433) +1 
1030 X3=LEVPOS (CH, 1) : Y3=LEVPOS (CH, 2 
) 

1040 IF LEVPOS(CH,3)=4 THEN LOCATE 
X3,Y3:PRINT"q":RETURN 

1050 LOCATE X3,Y3:CALL 26170:B$=CHR 
$(PEEK(26177)):1F B$Q" " AND B$Q" 
f" THEN RETURN 

1060 IF LEVPOS(CH,3)=1 THEN LOCATE 
X3,Y3:PRINT"z" :ENEMI =ENEMI +1 :RETURN 


1070 LOCATE X3+1,Y3:CALL 26170:B$=C 
HR$(PEEK(26177)):1F B$<C" " AND B$< 
>"f" THEN RETURN 

1080 IF LEVPOS(CH,3)=2 THEN LOCATE 

X3,Y3:PRINT"vu":LOCATE X3,Y3+1:PRIN 
T'xy":ENEMI=ENEMI +1: RETURN 

1690 IF LEVPUS(CH,33=3 THEN LUCATE 

13, 15: PRINI":S":LUCATE X3,Y3+1:PRIN 


LA 


VZ 


:RN 








T"tu":ENEMI=ENEMI +1 : RETURN 

1100 ? 

1110 "PERTE VIE 

1120 ? 

1130 IF ENEMHICS THEN RETURN ELSE IF 


INT(RND#2+1)=1 THEN 1140 ELSE 1170 
1140 ? 


1150 IF ARME=2 THEN 1180 ELSE VIE1= 
VIE45:1F VIE1/10=INT(VIE1/10) THEN 
LOCATE 1,25-VIE1/10:PRINT"b":1F VI 
E1)235 THEN 1200 

1160 RETURN 

1170 ? 

1180 1F ARME=1 THEN 1150 ELSE VIE2= 

VIE245:1F VIE2/10=INT(VIE2/10) THEN 
LOCATE 40,25-VIE2/10:PRINT"b":IF V 
1E2)235 THEN 1230 

1190 RETURN 

1200 CLS43:LOCATE 5,22:PRINT"GAME 0 
VER" 

1210 PLOT -2,0,1:TAGOFF#1:PRINTE,C 
HR$ (23) +CHR$ (2) ; : TAGHA:MOVE X1, Y1:P 

RINTH, CHRS (143) ; 

1220 IF ARME)0 THEN 1260 ELSE ARME= 

2:RETURN 

1230 CLS#4:LOCATE 28, 22:PRINT'GAME 

OVER" 

1240 PLOT -2,0,1:T'GOTFH1:PRINTHI,C 

HR$(23)+CHR3 (2) ; : TAGHA:MOVE X2, Y2:P 

RINT#1, CHR$ (143) ; 

1250 1F ARME)G THEN 1260 ELSE ARHE- 
1:RETURN 

1260 FOR 1=1 TO 3000:NEXT 

1270 MHILE INKEY$C)"":WEND 

1280 LOCATE 1,25:FOR 1=1 TO 28:PRIN 

T:NEXT 

1290 INK 1,16:1NK 2,10 

1300 TAGOFFH1:PRINTE, CHRS (23) 4CHR$ 
(3); :TAGHA 

1310 X-50:Y=200:A$="SCORE JOUEUR 1" 
:GOSUB 1380 

1320 X=50:Y=160:A$=STR$ (SCORE! ) :G0S 

UB 1380 

1330 X=400:1-200:A$-"SCORE JOUEUR 2 

":GOSUB 1380 

1340 X=400:Y=160:A$=STR$ (SCORE2) :G0 

SUB 1380 

1350 FOR 1=1 TO 2000:NEXT 

1360 LOCATE 1,25:FOR 1=1 TO 27:PRIN 

T:NEXT 

1370 RUN 

1380 PLOT -2,0,2:MOVE X,Y:PRINTH1, A 


$; 


)XE 
)IF 
IG 
>PQ 


Del 
1Q 


vY 


>FB 
)YB 
)ZR 


FE 
DIN 


LA 
= 
a 


Y 


KK 


)TJ 
)JN 


>BK 
>FD 


1390 PLOT -2,0,3:MO0VE X-4,Y+4:PRINT >JK 


ti,A$; 
1400 RETURN )EJ 
1410 ? De 
1420 ‘ ENCORE DES CHARGEURS... >K 
1430 ? >YA 


1440 ENEMI=ENEMI +1 : ATUER=ATUER+1:SC DNA 
ORE-50 

1450 LOCATE X/16+1,26-Y/16:BORDER 0 
1460 1F EFF=1 THEN PRINT"b":EI ELSE 
PRINT" "EI 

1470 1F X=X1 AND CHAR1C10 THEN CHAR 
1=CHAR1+1:DI:LOCATE 3+CHAR1, 24:PRIN 
Tq":El 

1480 IF X=K2 AND CHAR2<10 THEN CHAR 
2=-CHAR2+1:DI:LOCATE 38-CHAR2, 24:PRI 


>CN 
QU 


)FV 


NT"q":El 

1490 RETURN >FH 
1500 Del 
1510 ’ PRESENTATION )XK 
1520 »YA 
1530 RESTORE 1710:CLS >0B 


1540 PRINT #1,CHR$(23)+CHR$(3) ; : TAG 
ai 

1550 WHILE OK=0 

1560 GOSUB 1670:1F A$="{" OR A$="Q" 
OR A$="2" THEN OK=1:G0TO 1650 

1570 PRINT#1,"(0) 2 JOUEUR KEY/JOY" >KU 
;:GOSUB 1700:PRINT#1,"(0) 2 JOUEUR 

KEY/J0Y"; 

1580 GOSUB 16/0:1F A$="{" OR A$="0" 
OR A$="2" THEN OK=1:G0T0 1650 

1590 PRINT#1,"C1) 1 JOUEUR JOYSTICK >PG 
";:G0SUB 1700:PRINT#1,"(1) 1 JOUEUR 
JOYSTICK"; 

1600 GOSUB 1670:1F A$="1" OR A$="Q" 
OR A$="2" THEN OK=1:G0T0 1650 

1610 PRINT#1,"(2) 1 JOUEUR CLAVIER" 
;:GOSUB 1700:PRINT#,"(2) 1 JOUEUR 

CLAVIER"; 

1620 GOSUB 1670:1F A$="1" OR A$="Q" 
OR A$="2" THEN OK=1:G0T0 1650 

1630 MOVE 200,50:PRINT#1, F. BARNABE 
& CPC"; 

1640 GOSUB 1700:MO0VE 196,54:PRINT#1 

> "F.BARNABE & CPC"; 


1650 WEND:ARME=VAL(A$) >RG 
1660 RETURN >FG 
1670 GOSUB 1710:CLS45 >PK 
1680 A$=INKEYS$ >WK 


1690 PLOT -2,0,2:MO0VE 150,50:RETURN >DD 
1700 PLOT -2,0,3:MOVE 146,54:RETURN >DF 





1710 ? >YB 
1720 ? HUSIQUE )YC 
1730 >D 


1740 ENT -1,1,1,5,2,-1,5,1,1,5:ENV DXV 
1,5,3,2,9,-1,20,5,-1,2 

1750 FOR 1=1 TO 4:READ S,D:1F S=1 T >DM 
HEN RESTORE 1710:READ S,D 

1760 IF 5=0 THEN SOUND 1,0,Dx50,4:S DLE 
OUND 2,0,D450,4 ELSE SOUND 1,5,D#50 
,14,1,1:SOUND 2,S/2,D456, 13,0, 1 

1770 NEXT:RETURN >HD 
1780 DATA 379,1,284,2,379,1,284,1,3 >BY 
38,2,379,1,426,1,379,3,0,0.1,379,1, 
284,2,379,1,284, 1,338, 2,379, 1,426, 1 
379,3 

1790 DATA 284,1,213,2,284,1,213,1,2 DRZ 
53,2,284,1,319,1,284,3,379,1,284,2, 
379,1, 284,1,338,2,379, 1,426, 1,379,3 
1800 DATA 0,1,358,1,284,1,239,1,253 )EY 
,2,239,1,213,1,190,0.5,213,1,239,0. 
5,284,2,0,1,358,1,284,1,239,1,253,2 
,239,1,213,1,319,3,0,1 


1810 DATA 358,1,284,1,239,1,253, 2,2 >DU 
39,1,213,1,190,0.5,213, 1,239,0.5, 28 
4,2,0,1,1,0 

1820 ? »YD 
1830 CHANGEMENT TABLEAUX DYE 
1840 " DYF 
1850 BORDER @ HE 
1860 IF (LEVEL-1)/5=INT((LEVEL-1)/5 DYH 
) THEN RESTORE 1860 

1870 CLS#2:LOCATE 18,9:PRINT"LEVEL" >KD 
LEVEL 

1880 FOR 1=1 TO 1000:NEXT TR 
1890 CLS#2:CLS#3:CLSH4:FOR 1=1 TO 1 )CA 
6 

1900 READ A$:LOCATE 3,1+1:PRINT A$: >GZ 
NEXT 

1910 X1=256:Y1-254:12=352:Y2=254:EN DJC 
EM1=0:CHAR1 =4 : HUN 1 1=9 : CHAR2=4 :HUN 12 
=9:1F ARME=0 THEN ATUER-80 ELSE ATU 
ER-50 

1920 FOR 1=1 TO 33:READ LEVPOS(I,1) AZ 
LEVPOS(1,2), LEVPOS(1, 3) :NEXT:READ 

EFF 

1930 1F ARMEC>2 THEN LOCATE 4,22:PR )LR 
INT STRINGS (9, "p"):LOCATE 4,24:PRIN 
T'qgqg":LOCATE 4,20:PRINT"SCORE : "SC 
OREL 

1940 IF ARMEC>1 THEN LOCATE 29,22:P DRE 


RINT STRINGS (9, "p"):LOCATE 34, 24:PR 
INT" aggg":LOCATE 27, 24-:PRINTRECQRE : 











"SCORE? 

1950 1F ARME=2 THEN LOCATE 5,22:PRI 
NTGAME OVER" 

1960 IF ARME=1 THEN LOCATE 28,22:PR 
INT'GAHE OVER" 


1970 EVERY 52-LEVEL*2,0 GOSUB 1020 
1980 RETURN 
1990 
2000 ' DATA TABLEAUX 
2010 ? 
2020 DATA"bbbbbbb bfbfb 
bb" 
2630 DATA"bbbbbbb bbbbb 
bf" 
2040 DATA"iiiiiii bfbfb 
bb" 
20650 DATA"ddddddf bbbbb 
bf" 
2060 DATA'"ffdffdd bbbbbfbfb 
aaaaaa* 
2070 DATA"ffdffdf bfbfbbbbb 
ccaaaaa" 
2080 DATA'"iidiidd aaaaaaaaafbfb 
ce bb" 
2090 DATA"ddddddf cddddk occdd 
ddddccaaana” 
2100 DATA'"iiiiiiicddddk bbb occdd 
ddddccaaana" 
2110 DATA"ddddddf cddddahaaaaahaccdd 
ddddccaaana" 


2120 DATA" ffdf f ddcdddaaaa j j jaaaacdd 
ddddccaaana" 

2150 DAlA"tidi1dfcddd 
ddddccaaana" 

2140 DATA'"iidiiddcddd aajjjaa ccd 
ddddccaaana” 


dal]ljad 


ddddccaaana" 

2160 DATA"dddddddbbbb bbbbbbb bbb 
bbbbbbbbbbb" 

2176 DATA"ddddddfbbbbbbbbbbbbbbbbbb 
bbbbbbbbbbb" 

2180 DATA 3,6,3,6,6,3,10,7,2,11,7,2 
12, 7,2,13,7,2,15,6,2,16,6,2,17,6,2 
,16,9,2,21,9,2,28,7,2,29,7,2,30,7,2 
2190 DATA 20,7,1,22,7,1,24,6,1,24,6 
,1,24,4,1,24,2,1,26,2,1,26,4,1,26,6 
,1,26,8,1,38,3,1,38,5,1,3,6,3,6,6,3 
:3,12,3,6,12,3,11,16,4,28,17,4,34,1 
6,4,1 

2200 DATA"" 


2210 DATA'"aa iibiib" 


God 


TC 


UE 


DBT 
>GB 
>2B 
)XE 
>XF 
>0H 


>K 


V 


(pa 


>0H 
ZE 


2220 DATA" c geigei 
iib" 
2230 DATA"ancddddddddddddi ibi ibdddd 
dggjddddddd" 
2246 DATA"ancddddddddddi ib1ib1ibddd 
diibddddddd" 
2250 DATA"ancddddddddddgg jgg jgg jddd 
iibiibddddd" 
2260 DATA"ancddddddddddiibiibiibddd 
g8jge jddddd" 
2270 DATA" iiiib 
iibiib® 
2286 DATA"  iiiib nnnnj 
iiiib" 
2290 DATA"  nnnnj nnnnj  jiib 
nnmnj" 
2300 DATA"  nnnnj iiiib  ggi 
nnmnj" 
2310 DATA" iiiib ifiibiiiib iib 
iiiib" 
2320 DATA'iiiibiiiibnnnninnnnj i 
iiibiiiibii" 
2330 DATA"nnnnjnnnnjnnnnjnnnni n 
nnnjnnnnjnn* 
2340 DATA"nnnnjnnnnjiiiibiiiib n 
nnnjnnnnjnn" 
2350 DATA'"iiiibiiiib i 
iiibiiiibii" 
2360 DATA 6,3,2,8,3,2,10,3,2,12,3,2 
.14,3,2,16,3,2,24,3,2,26,3,2,27,3,2 
, 29, 2,2,30,2,2,32,3,2,34,3,2,36,3,2 
2370 DATA 3,12,2,4,12,2,11,12,2,14, 
11,2,15,11,2,21,11,2,24,9,2,25,9,2, 
27,12,2,28,12,2,29,12,2,30,12,2,31, 
12,2,21,11,2,11,12,2,4,12,2,24,15,4 
12,9,4,27,9,4,0 
2380 DATA" aaaaaaa 
aaaaaaaaaaa" 
2390 DATA" aaiiiii 
iiiiaaaaaaa" 
2400 DATA" aaiiiii 
iiiiaaaaaaa" 
2410 DATA" sl aaiiiii 
iiiiaaaaaaa" 
2420 DATA"ddddds!ddddddddeccaa aaa 
a affaffa” 
2430 DATA"cdddsimidddeddiibcaa k 
o affaffa" 
2440 DATA'"ddddnimiddddddggjcaa aajj 
aa aiiaiis" 
2450 DATA"dddaisimidddcciibdaa bajj 


>HC 


HG 


DC 


FF 


>GF 


>Gu 


){F 


>PV 


>PY 


JUA 


JUE 


> 


TL] 


>DF 


CC 


>FL 


>GA 








abalaaaaaas" 
2460 DATA"dddslsisiddddiibiiba biii 
ibslaaaaanl" 
2470 DATA" 

sl" 
2480 DATA" iiiib 
2490 DATA" nnnnj 
ibiiiib" 
2500 DATA" nnnnj 
njnnnnj" 
2510 DATA" iiiib 
njnnnnj" 
25206 DATA"iiiibiiiib 
ibiiiib" 
2530 DATA"nnnnjnnnn) 
iiiibiiiib" 
2540 DATA 3,4,2,5,4,2,8,3,2,10,4,2, 
12,4,2,14,4,2,14,4,2,16,4,2,9,14,2, 
11,14,2,23,15,2,25,11,2,27,11,2,29, 
11,2,31,11,2,33, 11,2,35,15,2,30, 7,2 
2550 DATA 36,6,3,33,6,3,8,3,2,10,4, 
2,12,4,2,14,4,2,16,4,2,9,14,2,11,14 
,2,23,15,2,25,11,2,30,7,2,14,11,4,3 
3,11,4,17,17,4,0 
2560 DATA" adddddddddddadddceccc 
ccddddddddd" 
2570 DATA" 
ddddddddddc" 
2580 DATA"bbbb iijiiiiiiiiiiiiiiiii 
iiiiiiiiiii” 
2590 DATA"fbfb a =" 
2600 DATA"bbbb sdddcccccdddsddddddd 
dddddddeccc" 
2610 DATA" fbfb scddddccddddaddddffd 
ffdffddddec" 
2620 DATA"bbbb acdffdffdddcaccddffc 
tfdtfdddddd" 
2630 DATA" fbfb accffdffdcccacdddiic 
iiciidddddd" 
2640 DATA"bbbbbacdiidiiccccaccddecc 
deccdddddcc" 
2650 DATA" fbfbfaddddddddeccacdddffc 
ffdtfdffddc" 
2660 DATA"bbbbbacdf fdf fdddcaddddf fd 
tfdtfdffddd" ‘ 
2670 DATA" fbfbfsaddffdffddddaccddiid 
iidiidiiddd" 
2680 DATA"bbbbbaddi idi idddds!dddddd 
ddddddddddd” 
2690 DATA" fbfbfadddddddddddai dddf fd 
tfdtfdffddd" 
2700 DATA'"sibbbaddffcffdffalmidcffc 


gejgei 


iibiib 
iii 


nnn 
nnn 
iii 


iiiib 


addccccdddddsddddddd 


MY 














tfdffdtfdnl" 

2710 DATA'"alfbfeddffcffcffalmicciic 
iidiidiidal" 

2720 DATA 3,5,1,3,7,1,3,11,1,3,13,1 
,3,15,1,5,7,1,5,9,1,5,13,1,5,15,1,7 
,17,1,7,15,1,7,13,1,7,11,1,4,15,4,6 
17,4 

2730 DATA 11,8,3,14,8,3,11,12,3, 14, 
12,3,11,16,3,14,16,3,17,16,3,25,7,3 
.25,11,3,25,15,3,28,15,3,28,11,3,28 
:73,31,7,3,31,11,3,31,15,3,34,15,3 
,34,11,3,1 

2740 DATA'"" 


2750 DATA" k fffffbbbb 
o" 
2760 DATA" k tffffbbbb 
o" 
2770 DATA" k fffffbbbb 
aa" 
2780 DATA" ak  aaaafffffbbbb 
aaa" 
2790 DATA" ak aaaafffffbbbbaaa 
aaa" 
2800 DATA" nak  aaaafffffbbbbaaa 
tfffbb" 
2810 DATA" nak  aaaafffffbbbbaaa 
ffffbb" 
2820 DATA" nnn bbbbbbbfffffbbbbffff 
faaftfffbb" 
2830 DATA" nnn bbbbbbbfffffbbbbffff 
faatfffbb" 
2840 DATA'"nnnn bbbbbbbfffffbbbbffff 
faaffffbbaa” 
2850 DATA" nnnn bbbaaaaaaaaaaabbffff 
faaffffbbaa" 


2860 DATA'"ffffffbbfffaafffaaabbffff 
faaffffbbaa” 

2870 DATA'"ffffffbbfffaafffaaabbffff 
faaffaaanaa" 

2880 DATA'"ffffffbbfffaafffaaabbffff 
faaffaaanaa" 

2890 DATA'"ffffffbbfffaafffaaabbffff 
fabbbaaanaa" 

2900 DATA 16,4,1,18,4,1,17,5,1,15,5 
,1:18,6,1,19,6,1,15,7,1,18,8,1,16,8 
,1,17,9,1,15,9,1,16,10,1,18,10,1,16 
,12,1,17,12,1,13,17,1,5,16,1,6,15,1 
57,16,1 

2910 DATA 6,17,1,12,15,1,12,17,1,13 
,16,1,16,15,1,18,14,1,25,11,1,26,12 
,1,26,14,1,28,15,1,9,17,4,22,17,4,3 
2,10,1,33,14,1,1 
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Valable pour CPC 
664, 464 et6128 


Ce mois-ci, c'est la seconde 


partie de Annuaire 
qui est publiée : ANNI. 
Pour ce qui 
est de l'initialisation 
et du mode d'emploi, 
voir le numéro 


précédent. 


anni 


10 ’annuaire->anni )LA 
20 GOTO 280'-> demarrage programme TA 


30 ?--------------- >LC 
40 "routine fenetre >LD 
[NIRRETT ETES ETES >LE 
60 "Mise en place >LF 
70 V=z======2222= >LG 


80 WINDOW#1,g,d,h,b:PAPER#1, cpa:PEN UP 
ti,cte:CLS#1 

90 y=((b-h+1)#16)-2:x=((d-g+1)#16)- 
À. 

100 HOVE((g-1)#16)+1,400-(b#16)+1,c >FE 
gr,0 

110 DRAWR 0,y:DRAUR x,0:DRAUR 0, -y: 
DRAUR-x,0 

120 MOVER 0,2:DRAUR x-2,0:DRA4R 0,y >EJ 
-2 

130 MOVER-6,-4:DRAWR-(x-12),0:DRAWR >NR 
0,-(y-12) 


>BM 


>NC 


140 WINDOW#1,g+1,d-1,h+t1,b-1:CLSH1: >KB 
RETURN 

150 ’effacesent >RG 
160 "=========- >RH 
170 WINDOW#1,g,d,h,b:PAPER#1,0:CLS# >PW 
1:RETURN 

1807 ESS >RK 
190 ‘procedure double hauteur TA 
200 AMHMERERNNMMNNUENNX >RC 







ANNUAIRE 


e programme présenté sauvegarde 

le fichier "MINITEL" après chaque 
modification. Si vous modifiez les quel- 
ques lignes suivantes, vous n'aurez plus 
à passer par le programme principal pour 
chacune d'elle et vous pourrez en faire 
plusieurs à suivre. 





+ 
os 
est 
© \ 


2100 ON r GOSUB 2200, 2400, 2700, 575:GOTO 2060'** remplacer 575 par 


530 
2800 GOSUB 170:GOSUB 750 


2810 ON r GOTO 2770, 2820:GOT0O 2800 
2820 GOSUB 170:GOSUB 870:GOSUB 3130:RETURN 


3140 WRITE#9,nfi:1F nfi=0 THEN 3180 


210 FOR dh=1 TO LEN(dh$):c=HIMEM+1+ DHN 
B#(ASC(MIDS (dh$, dh, 1))-32) :SYMBOL 2 
53,0,PEEK(c),PEEK(c),PEEK(c+1), PEEK 
(c+1),PEEK(c+2),PEEK(c+2) ,PEEK(c+3) 
:SYHBOL 252, PEEK(c+3), PEEK(c+4),PEE 
Kc+4),PEEK(c+5),PEEK(c+5),PEEK(c+6 

), PEEK(c46),0 


220 LOCATE#{,x,y:PRINT#1,CHR$(253)  »DD 
230 LOCATE#,x,y+1:PRINT#1,CHR$(252 )EX 
) 

240 x=x+1:SOUND i,50#dh,12:NEXT dh: >LF 
RETURN 

250 "555 Sr >RH 
260 'initialisation )RJ 
270 PHHAHMAENNNEUEX >RK 


280 CLEAR:CLEAR INPUT:MODE 1:BORDER 
O:INK 0,13:INK 1,0:INK 2,25:INK 3, 
10 

290 g=7:d=34:h=8:b=20:cpa=t:cte=3:c 
gr=2:GOSUB 80 

300 SOUND 1,284,10:LOCATE#1,5,2:PRI 
NTHI,"PAS D'ACCES DIRECT* 

310 SOUND 1,142,10:LOCATE#1,2,4:PRI 
NT#1,"JE VOUS PASSE SUR ‘ANN'" 

320 SOUND 1,71,10:LOCATE#1,5,8:PRIN ER 
TH,"4-# PATIENCE ! #-x" 


330 SOUND 1,36,10:RUN'"ann.bas" > AJ 
500 "------------ RF 
510 ‘senu general >RG 
520 "HHHHHNEÉHNUNEE >RH 


530 ‘'g=7:d=34:h=8:b=20:cpa=i:cte=3: 

cgr=2:G0SUB 80 

540 "LOCATE#1,1,1:PRINT#1,"# MENU P 

RINCIPAL" 

550 *PLOT 112,252,0:DRAU 364,252 

560 "LOCATE#,3,3:PRINT#1,"__ voule 

z-vous :" 

570 'RESTORE 610:FO0R i=5 TO 10:READ 
a$:LOCATE#1,2,i:PRINT#1,a$; :NEXT:S 

OUND 1,142,10:G0T0 580’** supprimer 
GOTO 580 

575 CLS:üSCREENSWAP, 1,2" #* 

580 GOSUB 630 

590 r=INSTR("ICHAPR",r$) 

595 üSCREENSWAP, 1,2 #4 

600 ON r GOSUB 1030, 1030, 1030,2010, 

4010,1030:G0T0 575'## remplacer GOT 

0 575 par GOTO 530 et mettre les li 

gnes 530 a 570 et 610 

610 "DATA "# Initialiser l'annuaire 

","# Consulter un fichier","* Modif 

ier un fichier","# Accés Minitel"," 

* Pages inforsations","# Revenir au 
lanceur" 

620 ’Attente 

630 r$="":r$=UPPERSCINKEYS):1F r$=" 

"THEN 630’ Attention ne pas changer 
la foraule 

640 RETURN 


710 ’Sous-progranse 


)RJ 
>LW 


>2F 
>RH 
)RJ 


720 PHHHHMNNENNNENS >RK 
730 ‘continuation, arret )TA 
740 "===============-22- >TB 


750 g=6:d=35:h=22:b-24:cpa=3:cte=2: DUY 
cgr=1:G0SUB 80 

760 SOUND 1,71,12:LOCATE#1,1,1:PRIN ET 
T#, "Voulez-vous continuer (0/N)?": 


770 GOSUB 630 >JC 
780 r=INSTR("ON",r$) >PH 
790 RETURN >AB 
800 ’disensionnesent des tableaux  DRJ 
010 =========2==2==22222222s2s2222 >RK 


820 ERASE app#,cod$,seri$,ser2$,ser >LE 
34,cle$ 

830 DIH app#(20),cod#(20),ser1$(20) >VZ 
,3er2$(20),ser3$(20),cle$ (20) :RETUR 

N 


840 RETURN >ZH 
850 "patience >TD 
860 "====-==- TE 


870 g=11:d=30:h=21:b=24:cpa=i:cte=0 >VJ 
:cgr=2:G0SUB 80 
880 dh$="PATIENCE ! S.V.P":x=2:y=1: DYU 
GOSUB 190:RETURN 


1010 ’Retour au programse principal >IE 


1020 HRMNEENNMMNHONENNERNNNEE DIF 


1030 ERASE app#,cod$, seri$,ser2$,se >ML 
r3$,cles 
1040 GOSUB 870:CHAIN"ANN.BAS",1100 Cu 


2000 !------------- )IE 
2010 "pages ainitel )IF 
2020 'HHHNNEHANEEEE )1G 


2030 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YR 
=2:cgr=1:GO0SUB 80 

2040 LOCATE#1,5, 1:PRINT#1,"#-# 
CCES HINITEL “ +#-#" 

2050 GOSUB 820:G0SUB 3030’->chargen >Tl 
ent fichier sinitel 

2060 g=5:d=36:h=10:b=17:cpa=i:cte=3 >VN 
:cgr=2:G0SUB 80 

2070 LOCATE#1,1,1:PRINT#1,"__ Voule >HD 
z-vous :":LOCATE#1, 4,3:PRINT#1,"# C 
onsulter le fichier":LOCATE#1,4,4:P 
RINT#1,"# Ajouter une fiche":LOCATE 
#1,4,5:PRINT#1,"# Supriner une fich 
e":LOCATE#,4,6:PRINT#1,"* Retour a 

u senu principal":SOUND 1,142,10 

2080 GOSUB 630 >PJ 
2090 r=INSTR("CAS",r$) >RX 
2100 ON r GOSUB 2200,2400,2700:G0T0 >ER 
575°## remplacer GOTO 575 par GOTO 
530 

2200 "Consulter le fichier 


" A BP 


)1G 
)XH 


2220 CLS:g=2:d=39:h=2:b=4:cpa=0icte DYT 
=2:cgr=1:G0SUB 80 

2230 LOCATE#1,1,1:PRINT#1,"*-# ” CO >QQ 
NSULTATION DU FICHIER ” #-#"; 

2240 1=0:1F nfi=0 THEN LOCATE 8,22: >UQ 
PRINT'#-# FICHIER VIDE ! #-#":SOUN 

D 1,284,12:RETURN 

2250 FOR fi=1 TO 10 )LY 
2260 i=iti:y=5::GO0SUB 2920:i=it{:y= >RR 
13:G0SUB 2920 

2270 GOSUB 750 QC 
2280 ON r GOTO 2300,2290:G0T0 2270 >AD 


2290 fi=10 >KG 
2300 NEXT:RETURN >HT 
2400 ’Ajouter une fiche Da 
2410 "===========2==222= >IK 
2420 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YV 
=2:cgr=1:G0SUB 80 

2430 LOCATE#1,3,1:PRINT#1,"#-# ” À DHJ 
JOUTER UNE FICHE “ +#-#" 

2440 IF nfi=20 THEN LOCATE 8,22:PRI >RU 
NT"#-# FICHIER PLEIN ! #-#":SOUND 
1,284, 12:RETURN 

2450 nfi=nfit{:fi=nfi >RH 
2460 LOCATE 3,5:PRINT"'HINITEL":LOCA >ZW 


TE 25,5:PRINT'"Fiche ":f{:FO0R 1=7 TO 
12:LOCATE 1,i:PRINT CHR$(18) :NEXT 
2470 g=7:d=34:h=22:b=24:cpa=l:cte=2 >VU 
:cgr=2:G0SUB 80 
2480 LOCATE#1,2,1:PRINT#1,"3613, 36 
14, 3615, ou autre"; 
2490 SOUND 1,71, 12:LOCATE 1,7:PRINT 
CHR$(18);:PRINT"N® d'appel 
.":LOCATE 16,7: INPUT®",app#$(fi):1F 
LEN(app$(f1))>4 THEN 2490 
2500 GOSUB 170 
2510 SOUND 1,71,12:LOCATE 1,8:PRINT 
CHR$(18) ; :PRINT"Code d'accès : ... 
RARE ":LOCATE 16,8: INPUT"",cod#(fi) 
:cod#(fi)=UPPER$(cod#$(fi)):1F LEN(c 
od$(f1))28 THEN 2510 
2520 g=7:d=34:h=21:b=24:cpa=1:cte=0 
:cgr=2:G0SUB 80:LOCATE#1,6, 1:PRINTS 
1, "Vous disposez de":LOCATE#,1,2:P 
RINT#1,"3 lignes de 25 caractères" 
3 
2530 SOUND 1,71,12:LOCATE 1,9:PRINT 
CHR$ (18) ; "Service : ";STRINGS(27," 
."):LOCATE 11,9:LINE INPUT"",ser1$( 
fi):1F LEN(seri$(fi)))27 THEN 2530 
2540 SOUND 1,71,12:LOCATE 2,10:PRIN >LQ 
T CHR$(18) ;STRING#(36,"."):LOCATE 2 
»10:LINE INPUT", ser24(f1):1F LEN(S 
er2$(fi))>36 THEN 2540 
2550 SOUND 1,71,12:LOCATE 2,11:PRIN 
T CHRS(18);STRING#(36,"."):LOCATE 2 
»11:LINE INPUT"",ser39(fi):1F LEN(s 
er3$(fi))36 THEN 2550 


>CP 


>VH 


>PE 
>HP 


)LX 


2560 GOSUB 170 
2570 SOUND 1,71,12:LOCATE 5,12:PRIN 
T CHR$(18); "Mot clé : ........ ":LOC 


ATE 15,12:LINE INPUT"",cle$(fi):cle 
$(fi)=UPPER$(cle$(fi)):1F LEN(cles$( 
fi))»8 THEN 2570 

2580 IF nfi=20 THEN LOCATE 8,17:PRI 
NT®#-x FICHIER PLEIN ! #-#":SOUND 
1,284,12:G0T0 2620 

2590 GOSUB 750 

2600 ON r GOTO 2610,2620:G0T0 2590 
2610 GOSUB 170:GO0T0 2450 

2620 GOSUB 170:G0SUB 870:G0SUB 3130 
:RETURN 

2700 "Suprimer une fiche 


2720 CLS:g=2:d=39:h=2:b=4:cpa=0:cte 
=2:cgr=1:G0SUB 80 

2730 LOCATE#1,2,1:PRINT#1,"#-# 
UPPRIMER UNE FICHE “ #-# 
2740 FOR i=1 TO 10:LOCATE 5,i+5:PRI 
NT USING"##";i::PRINT"# ":cod#(i):N 
EXT 

2750 IF nfi(ii THEN 2770 

2760 FOR i=11 TO nfi:LOCATE 22,i-5: 
PRINT USING"##";i;:PRINT"# "icod$(i 
):NEXT 

2770 g=2:d=39:h=22:b=24:cpa=l :cte=2 
:cgr=2:G0SUB 80 

2780 CLEAR INPUT:SOUND 1,71,12:LOCA 
TE#1,2,1:PRINT#1,CHR$ (18) ;"Nuséro d 
e la fiche à suprimer : ..":LOCATER 
1,34,1:INPUT#1,"",i:1F 1220 THEN 27 
80 

2790 app$(i)="":cod#(i)="":ser1#(i) 
="fiser2$(i)="":ser3$(i)="":cles(i) 
="finfisnfi-i 

2800 GOSUB 170:G0SUB 870:G0SUB 3110 
RETURN 

2900 ’lister la fiche 


"$ 


2920 LOCATE 3,y:PRINT CHR$(18) ; "N° 
d'appel : "app$(i):LOCATE 3,y+1:P 
RINT CHR$(18) ; "Code d'accés : ";cod 
$(i) 

2930 LOCATE 1,y+2:PRINT CHR$(18);"S 
ervice : ";ser{$(i):LOCATE 11,y+3:P 
RINT CHR$(18) ;ser2$(i):LOCATE 11,y+ 
4:PRINT CHR$(18);ser34(i) 

2940 LOCATE 8,y+5:PRINT CHR$(18);"M 
ot cle : "scle$(i) 

2950 PRINT STRING$(38,"8#") ; :PRINT:R 
ETURN 


3010 chargement fichier sinitel 
3020 "HRHIUMHNNNHNNNENNNEENNENN 
3030 GOSUB 870:0PENIN"MINITEL. ANN" 
3040 INPUT#9, nfi 

3050 FOR i=1 TO nfi 


)QA 
>ZH 


>") 


ML 


TK 


XF 
)1G 
>IH 
)EA 
>LV 
>HZ 


3060 INPUT#9,app#(i),cod#(i),ser1$( >LM 
1),ser2$(1),ser3$(i),cles$(i) 


3070 NEXT >LB 
3080 CLOSEIN >HB 
3090 GOSUB 170:RETURN >0B 
9100 "=------< nee )1G 
3110 ’ sauvegarde fichier sinitel )IH 
3120 PARRMÉNMERNNMENEENENEEE DL] 
3130 OPENOUT"MINITEL. ANN" >UR 
3140 WRITE89,nfi )LQ 


3150 FOR i=1 TO 20:1F app$(i)=""THE >FU 
N 3170 

3160 WRITE#9,app$(i),cod#(i),ser1$( >LH 
i),ser2$(1),3er34(1),cle$(1) 

3170 NEXT >LC 
3180 CLOSEOUT 2€ 
3190 PRINT CHR$(21):üERA, "HINITEL.B >YD 
AK":PRINT CHR$(6) 
3200 RETURN )EJ 
Y1G 
>1H 
)1] 
)ZE 


4010 ’inforsations 

4020 HHHMHEHNEEE 

4030 CLS::g=2:d=39:h=2:b=4:cpa=0:ct 
e=2:cgr=1:G0SUB 80 

4040 LOCATE#1,6,1:PRINT#1,"#-# | 
NFORMATIONS “ #-#" 

4050 LOCATE 1,5:PRINT" Ce prograss 
e a été conçu de façon àce qu'une 
personne ne connaissant rienà l'inf 
orsatique ou à un ordinateurpuis 
se l'utiliser sans problèmes." 

4060 LOCATE 1,10:PRINT" +# Tous les 
senus, écris clairesents, sont 
appelés par une majuscule. To 

utes les erreurs sont traitées." 
4070 LOCATE 1,14:PRINT" # Les char 
gesents ou sauvegardes de fichi 
ers sont automatiques. Un 
fichier plein se charge ou 5e 
sauve en quinze secondes maxisun. 
4080 LOCATE 1,19:PRINT" # La routi 
ne ‘AZERTY' (CPM-PLUS) est  compa 
tible avec une isprisante. Po 
ur les claviers français il faut 
la suppriner." 
4090 GOSUB 4360:0N r GOTO 4100, 4390 
:GOT0 4090 
4100 FOR i=10 TO 23:LOCATE 1,i:PRIN 
T CHR$(18) :NEXT 
4110 LOCATE 1,10:PRINT" # Lors de 
la presière utilisation, il fa 
ut initialiser les progranses “A 
NN" et “ANN1”. Pour cela faire :" 
4120 LOCATE 5,13:PRINT"LOAD”ANN", p 
uis “GOTO 2400"" 
4130 LOCATE 5,14:PRINT"LOAD"ANNI", 
puis “GOTO 3100" 
4140 LOCATE 5,15:PRINT"RUN"ANN" pou 
r relancer." 


>AA 


>UY 


)LV 


UF 


>ZH 


>BN 


>CP 


)AA 


4150 LOCATE 7,18:PRINT"DES LORS TOU 
T SERA SIMPLE !":LOCATE 9,20:PRINT" 
#-# BON TRAVAIL tt! #-#° 

4160 GOSUB 4360:0N r GOTO 4170,4390 
:G0TO 4160 

4170 CLS#1:LOCATE#,6,1:PRINT#1, "#- 
# “ DEPARTEMENTS ‘ #-4" 

4180 FOR i=4 TO 22:LOCATE 1,i:PRINT 
CHR$(18) :NEXT 

4190 LOCATE 1,5:PRINT"AIN 
.. 01 AISNE ......... O2ALLIER ..… 


ss 


... 05 ALPES MARITIMES OG6ARDE 
07 ARDENNES 084 
09 AUBE .......... 


.…. 12"; 
4200 PRINT"BELFORT (TERR) 90 BOUC 
H. DU RHONE 13CALVADOS ...... 14 C 
ANTAL ISCHARENTE 16 
CHARENTE MARIT. 17CHER .......... 
18 CORREZE 19CORSE DU SUD 
.. 2A HAUTE CORSE ..… 2BCOTE D'OR 
se. 21 COTES DU NORD . 22°; 
4210 PRINT"CREUSE ........ 23 
OGNE ...... 24D0UBS 
ROME ......... 26EURE 


29 GARD SOHAUTE GARONN 
E. 31 GERS .......... 32" 
4220 GOSUB 4360:0N r GOTO 4230, 4390 
:GOTO 4220 
4230 LOCATE 1,5:PRINT"GIRONDE ...… 
+. 33 HERAULT SAILLE ET VI 
LAINE 35 INDRE ..... .... S6INDRE E 
T LOIRE 37 ISERE 38JURA 
onssosesee 39 LANDES ........ 40L 
OIR ET CHER .. 41 LOIRE ....... s. 
42HAUTE LOIRE ... 43 LOIRE ATLANTI 
Q. 44"; 
4240 PRINT"LOIRET 45 LOT 
AG6LOT ET GARONNE 47 L 
ABHAINE ET LOIRE 49 
sésosses SOHARNE 
51 HAUTE MARNE ... S2MAYENNE ..… 
... 53 MEURTHE ET HOS SAMEUSE ... 


sens ie 55 MORBIHAN ...... 56"; 

4250 PRINT"MOSELLE ....... 57 NIEV 
RE ........ 5BNORD .......... 59 0 
ISE scsi GOORNE ....... .… 61 


PAS DE CALAIS . 62PUY DE DOME ... 
63 PYRENEES ATLAN. G4HAUTES PYREN 
EES 65 PYRENEES ORIEN. 66" 
4260 GOSUB 4360:0N r GOTO 4270,4390 
:G0TO 4260 
4270 LOCATE 1,5:PRINT"BAS RHIN ..…. 
.. 67 HAUT RHIN GBRHONE 
+... 69 HAUTE SAONE ... 7OSAONE E 


)JR 


>LY 


HE 


>)TY 


>WG 


>TP 


NZ 


T LOIRE 71 SARTHE T2SAN0 
IE ... 73 HAUTE SAVOIE .. 745 
EINE MARITIME 76 DEUX SEVRES 

ssusese 80 


.. 81"; 
4280 PRINT"TARN ET GARONNE 82 VAR >IP 


cososvssoss 83VAUCLUSE ...... 84 V 
ENDEE ........ BSVIENNE ........ 86 
HAUTE VIENNE .. 87VOSGES ........ 
B8 YONNE ......... 89" 
4290 FOR i=15 TO 23:LOCATE 1,i:PRIN >UX 
T CHR$(18) :NEXT 
4300 GOSUB 4360:0N r GOTO 4310,4390 >LK 
:GO0T0 4300 


4310 FOR i=5 TO 23:LOCATE 1,i:PRINT TV 
CHR$ (18) :NEXT 

4320 LOCATE 8,6:PRINT"#-# REGION PA DTT 

RISINNE #-#" 

4330 PRINT:PRINT'ESSONNE ....... 
HAUTS DE SEINE S92PARIS ......... 

75 SEINE ET MARNE 77SEINE ST DEN 

IS 93 VAL DE MARNE .. 94VAL D'OIS 

E .... 95 YVELINES 78" 

4340 LOCATE 12,15:PRINT"#+-* OUTRE-M DRT 

ER #-#":PRINT:PRINT'GUADELOUPE 971 

GUYANNE 973MARTINIQUE 9 

72 REUNION 974ST PIERRE 

& MIQUELON 975 MAYOTTE 976" 

4350 GOSUB 4360:0N r GOTO 4030,4390 >LV 

:GOTO 4350 

4360 SOUND 1,71,12:LOCATE 3,23:PRIN PV 

T CHR#(24);" “Suite” ou “Retour sen 

u general” ";CHR$(24) 


4370 GOSUB 630 QC 
4380 r=INSTR("SR",r$) QG 
4390 RETURN >FK 
5000 ?---------- )IH 
5010 ’Iapression LU 
5020 "HHHNYHENNEE )IK 


5030 g=3:d=38:h=21:b=24:cpa=i:cte=3 >VN 
:cgr=2:G0SUB 80 

5040 SOUND 1,142,12:LOCATE#1,1,1:PR >JR 
INT#1,"_ Voulez-vous isprimez :":LO 
CATE#1,7,2:PRINT#1,"# la Fiche + 
l'Adresse" 

5050 GOSUB 630 >PJ 
5060 r=INSTR("FA",r$) )QV 
5070 ON r GOSUB 5120,5420:G0T0 5040 >BG 


Del 
)IK 
5120 GOSUB 170:g=6:d=35:h=22:b=24:c )AX 
pa=i:cte=0:cgr=2:GO0SUB 80:LOCATE#!, 
2,1:PRINT#1, "Impression de la fich 
e"sfic;:SOUND 1,284,12 

5130 PRINT#8,CHR$(27);"a";CHR$(27); DJV 
"D" ;CHR$ (2) ;CHR$ (40) ;CHR$ (0) 

5140 PRINT#8,CHR$(13);" #========- 


5100 ’Inpression d’une fiche 


5150 IF LEFT$(na$(fic),1)C"#"THEN DFC 
5170 
5160 PRINT#8,CHRS(9);"! ":CHR$#(27); DJT 
"p";CHRS(1); "ax ":MID$(nm$(fic),2); 
CHR$(27) ;"p";CHR$ (0) ;CHR$ (9); "1" :G0 
TO 5190 
5170 PRINT#8,CHR$(9);"! ";CHRS(27); DYF 
"US CHRS(1) "ax ":CHRS (27); "E" snm$( 
fic) ;CHR$(27) ;"F";CHR$(27) ;"W" ; CHRS 
(0);CHR$(9); "1" 
5180 PRINT#8,CHRS(9);"! ";CHR$(27); >HB 
"He; CHRS(1);" ";CHR#(27);"E"; 
pna$(fic);CHR$(27);"F";CHRS (27); "4" 
;CHR$ (0) ;CHR#(Q); "1" 
5190 PRINT#8,CHR$(9);"! ";:CHR$(9);" >DR 
(IL 
5200 PRINTSR, CHDé(Q):"! S:MADRESSE >RB 
: ";CHRS(27); "Et ;adi$(fic) ;CHR$(27) 
3"F";CHRS(9); "1" 
5210 PRINTE8,CHR$(Q9);"! "," >HP 
";CHR#(27);"E" ;ad2$ (fic) ;CHR$(27) 
;"F";CHRS(9);"te 
‘5220 PRINT#8,CHR$(9);"! "sn >HR 
";CHR# (27); "Et ;ad3$(fic) ;CHR$(27) 
;"F";CHR$(9);"1" 
5230 PRINT#8,CHR$(9);"! ":CHR$(9);" >DL 
in 
5240 PRINT#8,CHR#(9);"! ";"Téléphon >TJ 
e donicile :";CHR$(27);"E";teli$(fi 
c);CHRS (27); "FM: CHRS(Q); "1" 
5250 PRINT#8,CHR$(9);"! ";"Téléphon >RP 
e travail :";CHR$(27);"E";tel2$(fi 
c);CHRS(27);"F";CHR$(Q); "1" 
5260 PRINT#8,CHR$(9);"! ";CHR$(9);" >DP 
." 
5270 PRINT#8,CHR#(9);"! ":CHR#(27); DUC 
*E*;"# Renseignements :";CHR$(27);" 
F";CHR$(Q);"1" 
5280 PRINT#8,CHR$(9);"! ";CHR$(27); >GL 
PEU = ";CHRS(27); °F" 


;CHRS (9); 

5290 PRINTH8,CHR$(9);"! ":CHR$(9);" >DT 
LL 

5300 PRINT#8,CHR$(9);"! ";CHR$(27); >EH 
"E";"- *:CHR$(27);"F"sreni$(fic);CH 
RS(g);"te 

5310 PRINT#8,CHR$(9);"! ";CHR$(27); )EK 
"E";®- ";CHR$(27);"F";ren2$(fic);CH 
R$(9);"1" 

5320 PRINT#8,CHR$(9);"! ":CHR$(27); >EM 
"Es "- ",CHR$(27);"F"sren3$(fic) ;CH 
RSC); 

5330 PRINT#8,CHR$(9);"! ";CHR$(27); )EP 
"E";"- ":CHR$(27);"F";ren4$(fic);CH 
R$(9);"1" 

5340 PRINT#8,CHR$(9);"! ";CHR$(27); >ER 
"E";"- ";CHRS (27); "F'sren5$(fic) ;CH 
R$(9);"1" 

5350 PRINT#8,CHR$(9);"! ";CHR$(27); )EU 
ME"; #:CHRS(27);"F'iren6$(fic);CH 


R$(9);%1" 

5360 PRINT#8," #==-=============== )py 
Szszssssssssssszszzf" 

5370 GOSUB 750 QG 
5380 ON r GOTO 5120,5650:GO0T0 5370 AU 
5400 ’ Iapression d'adresse )B 
AID ‘assesszesssnssss ss: >)YC 


5420 CLS#1:LOCATE#1,1,1:PRINT#1, "Ch >BZ 
oississez le format d’enveloppe:";: 
LOCATE#1,5,2:PRINT#1,"# Petit #HM 


oyen # Grand" :SOUND 1, 142,12 
5430 GOSUB 630 )CA 
5440 r=INSTR("PHG",r$) >EN 


5450 IF r=1 THEN xx=15:tav=68:1op=21 >DN 


5460 IF r=2 THEN xx=19:tav=13:lop=2 )EB 
5 
5470 IF r=3 THEN xx=32:tav=13:lop=2 )EY 
5 
5480 IF LEFT$(na$(fic),1)="#"THEN n )RZ 


a$(fic)=HID$(na$(fic),2):G0T0 5550 

5490 tet$="":GOSUB 170:g=5:d=-36:h=2 >XE 
2:b=24:cpa=3:cte=2:cgr=1:GO0SUB 80:L 

OCATE#1,1,1:PRINT#1, "Voulez-vous un 

e entète (O/N) ?";:SOUND 1,71,12 

5500 GOSUB 770 >0D 
5510 ON r GOTO 5520,5550:G0T0 5500 AL 

5520 g=4:d=37:h=21:b=24:cpa=0:cte=i >VP 
:cgr=2:G0SUB 80 

5530 LOCATE#1,1,1:PRINT#1, "Ecrire : >PC 
Hr,Mne,Mr & Mne,Mrs,etc" 

5540 SOUND 1,71,12:LOCATE#1, 13,2:PR JP 
INT#1,CHR$ (18); :PRINT#1,"........ Ge 
:LOCATE#1, 13,2: INPUT#1,"",tet$:1F L 
EN(tet$)>8 THEN 5540 

5550 GOSUB 170:g=3:d=38:h=21:b=24:c >HR 
pa={:cte=2:cgr=2:G0SUB 80 

5560 LOCATE#1,1,1:PRINT#1," Mettre >XG 
l'enveloppe guide à gauchedans l'in 
prisante, puis (ESPACE)>":SOUND 1,36 
,15:CALL &BB06 

5570 PRINT88,CHR$(27);"a";CHR$(27); >CL 
"C";CHRS$(Lop) ;CHR$(27) ;"B";CHR$(tav 
);CHR$ (0) ;CHR$ (27); "8" 

5580 PRINT#8,CHR$(11):PRINT#8,SPC(x >AE 
x-LEN(tet$));CHR$(27) ;"E" ;CHR$(27) ; 
“G'itet$;" "ina$(fic);" “;pnas(fic) 
;CHRS (27); "H" 

5590 PRINT#8:PRINTEB, SPC(xxtS);adi$ >KK 
(fic) 

5600 PRINT#8,SPC(xx+5) ;ad2$ (fic) >BL 

5610 PRINT#8:PRINTS8, SPC(xx+8) ;CHR$ >HB 
(27);"G";ad3$(fic):;CHR$(27) ; "H";CHR 


4(27);°F" 
5620 PRINTE8, CHR$ (12) >QA 
5630 GOSUB 170::G0SUB 750 TT 


5640 ON r GOTO 5550,5650:G0T0 5630 AZ 
5650 GOSUB 170:GO0SUB 870:CHAIN"ANN. >NK 
BAS",1075’## remplacer 1075 par 103 

0 


L\-1e) LIT7AUeNEE Ne 2 on, ET 


> 


OUI 


Nom : 
Adresse : 
Code postal : 
Date 


Signature : 


Prénom : 


Ville : 


je désire m'abonner à CPC HS pour 1 an au prix de 90 F (6 numéros). Par avion, 
nous consulter. Les abonnements ne sont pas rétroactifs. 


e Bulletin valable jusqu'au 31 mai 


Je joins à cet envoi, mon règlement de 90 F au nom de : 
EDITIONS SORACOM - La Haïie de Pan - 35170 BRUZ. 





10 REMY NRA NN UN NUE )TJ 
20 REMt#+ MOITIE LEE )NH 
30 REMt#* Henri Chauvet #44 >VQ 
40 REMHHHH RHUME EE >TM 
50 LE 
60 GOSUB 230:'titre KB 
70 LG 
80 GOSUB 480:'initialisations >LA 
gû ? iLJ 
100 GOSUB 1350:'choix du niveau >XE 
110 ? >RC 
120 GOSUB 1710:'entree du nos >XG 
130 ? ?RE 
140 GOSUB 1900:'recitation >XK 
150 ? >RG 
160 GOSUB 3530:'fin d'exercice )YC 
170 GOTO 140 >YK 
180 >RK 
190 REMA##### 4444 ux x >MM 
200 REM##4 titre ### ME 
210 REMY#N#YN NN >ME 
220 ?RE 
230 MODE O:CALL &BCO2 >PD 
240 CLG >RJ 
250 ON SQ(1) GOSUB 370 >PE 
260 FOR i=1 TO 88 >DF 
270 x=xt4:y=yt4 >HD 
280 IF x>639 THEN x=0 >NG 
290 IF y>360 THEN y=0 >NA 
300 z=INT(L4#RND) >MHM 


310 PLOT x,y,2z:DRAN 636-1,y:DRAW 63 >PC 
6-x,357-y:DRAW x,357-y:DRAU x,y 

320 NEXT 

330 INK 15,7,8:PEN 15:PAPER 1:PRINT 
SPACE$(20)+"CHERCHE LES MOITIES"+ 
SPACES$ (20) 

340 LOCATE 9,25:PRINT CHR$(164)+" H >VZ 
C";:PAPER O:PEN ! 

350 FOR at=1 TO SOOO:NEXT at 

360 ENV 1,11,-1.3:ENT -1,5,-16,1,2, 
39, 1:ENV 2,15,1,2 

370 READ nol,dui,no2,du2:1F nofi=1 T 

HEN 80 

380 SOUND 1,not,dut#10,10,2:SQUND 2 >VV 
,n02, du2#10, 10,2 

390 ON SQ(2) GOSUB 370 

400 DATA 142,3,179,3,134,1,159,1,11 
9,4,142,4,127,4,150,4,119,4,142,4,1 
06,4,134,4,119,4,142,4,142,8,179,8, 
179,3,284,3,284,1,159,1,239,4,142,4 
,253,4,150,4,239,4,142,4,213,4,134, 
4,239, 4,142,4,284,8,179,8 

410 DATA 190,3,239,3,179,1,213,1,15 >CG 
9,4,190,4,239, 4,190, 4,119, 4,190, 4,0 


>PL 
)AB 





ELDUÇGANE 


MouriE 


Henri CHAUVET 


Valable pour CPC 
664 et 6128 





Ce programme aborde 
un domaine qui est à la base 
de nombreux exercices de 
calcul mental : X5, X50, x0,25 
et même /2 (!). L'entraînement 
est progressif. En cas d'erreur, 
l'enfant est pris par la main et 
amené à trouver la bonne 
réponse. Il ne monte d'un 
niveau dans l'apprentissage 
que s'il s'en est montré apte. 
Il faudra du travail pour réussir 
au dernier échelon. À ce 
moment, l'élève est autorisé 
à disputer un championnat. 


,.1,0,.1,119,4,190, 4,179, 16, 284, 16, 


1,1,1,1 

420 RETURN ?2B 
430 >RH 
440 REMAHHN NN ANMUNNÉNENNEES >VH 
450 REM### initialisations ### )YE 
CUNRUN ÉPEESEETEEEESEESS ETES SES) >VK 
470 TB 
480 DIM score(30),champt$ (30) >WD 
490 MODE 1:WINDOW#1,1,40,1,3:WINDOW >PR 
42,10,30,9, 16:PAPER#2, 3:PEN#2,2 

500 RANDOMIZE TIME >NU 
510 "chiffres et point >RG 


520 des$=CHR$(B)+CHR$ (10) :haut$=CHR >HH 
311) 

530 SYMBÜL AFTER 200 :PT 
Gaû SYMBOL 260,124,124,196,198,206, >MW 
206,214,214 

550 SYMBOL 201,230, 230, 198,198,124, >DT 
124 

560 c$(0)=CHR$(200)tdes$+CHR$(201)+ >GQ 
haut$ 

570 SYMBOL 202,24,24,56,56,24,24,24 >DK 
,28 

580 SYMBOL 203,24,24,24,24,126,126 )AM 





590 c$(1)=CHR$(202)+des$+CHR$ (203) + 
haut$ 

600 SYMBOL 204,60,60, 102, 102,6,6,60 
, 60 

610 SYMBOL 205,96,96, 102,102, 126, 12 
6 

620 c$(Z)=CHR$(204)+des$+CHR$(205)+ 
haut$ 

630 SYMBOL 206,60,60, 102, 102,6,6,28 
, 28 

640 SYMBOL 207,6,6,102, 102,60,60 
650 c$(3)=CHR$(206)+des$+CHR$(207)+ 
haut$ 


660 SYHBOL 208,24, 24, 56,56, 88, 88, 15 


2,152 

670 SYMBOL 209,254,254,24,24,60,60 
680 c$(4)=CHR$(208) tdes$+CHR$ (209) + 
haut$ 

690 SYMBOL 210,126, 126,98,98,96, 96, 
124,60 

700 SYMBOL 211,6,6,102, 102,60,60 
710 c$(5)=CHR$(210)+des$+CHR$(211)+ 
haut$ 

720 SYMBOL 212,60,60, 102, 102,96, 96, 
124,124 


| 730 SYMBOL 213,102, 102, 102, 102, 60,6 


Ù 

740 c$(6)=CHR$(212)+des$+CHR$(213)+ 
haut$ 

750 SYHBOL 214, 126, 126, 70, 70,6,6, 12 
12 

760 SYHBÜL 215,24,24,24,24,24,24 
770 c$(7)=CHR$(214)+des$+CHR$ (215) + 
haut$ 

780 SYMBOL 216,60,60, 102, 102, 102, 10 
2,60,60 

790 SYMBOL 217,102, 102,102, 102,60,6 
0 

800 c$(8)=CHR$(216)+des$+CHR$(217)+ 
haut$ 

810 SYMBOL 218,60,60, 102, 102, 102,10 
2,62,62 

820 SYMBOL 219,6,6, 102, 102,60,60 
830 c$(9)=-CHR$(218)+tdes$+CHR#(219)+ 
hauts 

840 SYMBOL 220,0,0,0,24,24,24 

850 c$(10)=CHR$(32)+des$+CHR$ (220) + 
haut$:'’point 

860 ef$-CHR$(32)+des$t+CHR$(32)thaut 
$:'efface 

870 ‘chat juste 

880 SYMBOL 221,0,0,0,0,0,227,255,25 
5 

890 SYMBOL 222,0,0,0,1,3,248,255,25 


NV 


GZ 


v 


DN 


CK 


sr 


LA 


GY 


A 


DC 


»YQ 
>GG 


v 
1] 
L =) 


5 

900 SYABOL 223,0,15,127,255,255,31, 
223,223 

910 SYHBOL 224,0, 128,240,255,255,25 >JP 
5,255,31 

920 SYHBOL 225,0,0,0, 0, 192,224, 224, 
240 

930 SYMBOL 226, 127,127,63,60,63,63, )EE 
15,1 

940 SYHBOL 227,255,255,255,230, 255, 
190,92, 240 

950 SYHBOL 228,158,61,123,251,253,2 >LU 
52,247,247 

960 SYHBOL 229, 127,255, 255,255, 255, 
255, 31,207 

970 SYNBOL 230,255,255,255,255,249, >HC 
249,249, 240 

980 SYMBOL 231,0,192,224,224,224,24 »KV 
0,240, 240 

990 SYHBOL 232, 30,63, 63,31 

1000 SYMBOL 233, 13,251,239, 159,255, 
252 

1010 SYMBOL 234, 247,247, 240, 207, 7 
1020 SYMBOL 235,239,206, 31,255, 255, 
1,7,3 

1030 SYHBOL 236,193,1,1,7,63,255,25 >FH 
5,240 

1040 SYMBOL 237,240, 240,224,224,224 )ET 
192 

1050 chat j$(1)=CHR$(221)+CHR$(222)+ >XM 
CHR$ (223) +CHR$(224)+CHR$(225) :chat j 
$(2)=CHR$ (226) +CHR$(227)+CHR$(228)+ 
CHR$(229)+CHR$(230)+CHR$ (231) :chat j 
$(3)=CHR$ (232) +CHR$ (233) +CHR$ (234 )+ 
CHR$(235)+CHR$(236)+CHR$ (237) 

1060 ’chatfaux >K 
1070 SYMBOL 238, 24,24,28,56,24,60,1 >GP 
89, 126 

1080 SYMBOL 239,60, 126,60, 126,60,25 >JL 
5,126, 60 

1090 SYMBOL 240,0,0,0,0,1,8,7,47  DYY 
1100 SYNBOL 241,255,60, 126,60, 36,25 >KD 
5,255, 255 

1110 SYABOL 242,0,0,0,0,128, 16,224, 
244 

1120 SYMBOL 243,0,95,47,55,119,55,5 DEP 
9,91 

1130 SYHBOL 244,126, 129,255, 126, 153 DNX 
255,231, 195 

1140 SYHBOL 245,0,250, 244,236, 238,2 LT 
36,220, 218 

1150 SYMBOL 246,27, 13, 30, 15,15,31,3 >EG 
1,62 

1160 SYHBOL 247,165,195, 126, 195,255 DHY 


>DD 











:137,66 

1170 SYNBOL 248,216, 176,120,240,240 >NU 
, 248, 248, 124 

1180 SYMBOL 249,31,60,60,248, 120,12 >KB 
0,248,172 

1190 SYMBOL 250,248,60,60,31,30,30, >FX 
31,53 

1200 chatf#(1)=CHR$(32)+CHR$(238)+C )EB 
HR$(32) :chatf$(2)=CHR$(32)+CHR$ (239 
)+CHR$ (32) :chatf$(3)=CHR$ (240) +CHR$ 
(241)+CHR$ (242) :chatf$(4)=CHR$ (243) 
+CHR$(244)+CHR$ (245) :chatf$(5)=CHR$ 
(246)+CHR$(247)+CHR$ (248) :chatf$(6) 
=CHR$(249)+CHR$ (32) +CHR$ (250) 

1220 'curseur 

1230 curtr$-CHR$(22)+CHR$(1)+CHR$(9 >YY 


5)+CHR$(22)+CHR$ (0) 

1240 ? )K 
1250 ON ERROR GOTO 5210 QC 
1260 PRINT CHR$(21) >NK 


1270 nbchasp-0:0PENIN"champaoi" :WHI 
LE NOT EOF:nbchanp=nbchanp+i : INPUT# 
9, chasp# (nbchanp), score(nbchanp) :WE 
ND:CLOSEIN:PRINT CHR$(6) 


1280 PRINT CHR$(6) )B 
1290 RETURN FF 
1300 ’ >1G 
1310 REMXHRHHHNNENNMNENNENNNNEEX >VP 
1320 REM*## choix du niveau ### )IK 
1330 REMYHY#X#HHRNNNENEEENNNUUE >VR 
1340 ? >YA 


1350 PAPER 0:CLS:1NK 3,17,16 NJ 
1360 PEN 1:LOCATE 5,2:PRINT"II y a 

6 niveaux de difficulte.":LOCATE 2, 
4:PRINT"Tu pourras choisir celui qu 

e tu desires." 

1370 LOCATE 2,8:PRINT"Si tu reussis >JG 
parfaitesent au niveau 7,";:PRINT" 

tu pourras disputer un championnat. 

" 


1380 PEN 3:LOCATE 15,14:PRINT"ATTEN >UZ 

TION" :PLOT 220,174,3:DRAUR 150,0:DR 

AR 0,20:DRAVR -150,0:DRAVR 0, -20 

1390 PEN 2:LOCATE 1,16:PRINT"Uti{l11s >HX 

e les chiffres a droite du clavier 
et non ceux du haut." 

1400 LOCATE 6,19:PRINT"Pour ecrire 

un nosbre decisal,":LOCATE 2,20:PRI 

NT'utilise le point et non pas la v 

irgule*:LOCATE 7,21:PRINT"(conse su 

r une calculette)." 


1410 GOSUB 5130 >WH 











1420 CLS:INK 3,17 >LY 
1430 PEN 2:LOCATE 1,1:PRINT"{ -";:P }AF 
EN 1:PRINT" nosbres d'un chiffre" 

1440 PEN 3:PRINT" exeaples : 4,7 >LK 


1450 PEN 2:PRINT:PRINT"2 -";:PEN 1: >YB 
PRINT" 0 au chiffre des unites" 

1460 PEN 3:PRINT" exemples : 10, >PC 
60,70..." 

1470 PEN 2:PRINT:PRINT"3 -"::PEN 1: >NP 
PRINT" dizaines paires, unites pair 

es" 

1480 PEN 3:PRINT"  exesples : 24, >PU 
38,46..." 

1490 PEN 2:PRINT:PRINT"4 -";:PEN 1: >UN 
PRINT" dizaines paires, unites inpa 
ires"" 

1500 PEN 3:PRINT"  exenples : 23, DPT 
49,87..." 

1510 PEN 2:PRINT:PRINT"S -";:PEN 1: RE 
PRINT" dizaines ispaires, unites pa 
ires" 

1520 PEN 3:PRINT"  exeaples : 36, PT 
54,76..." 

1530 PEN 2:PRINT:PRINT"6 -";:PEN 1: >VX 
PRINT" dizaines iapaires, unites is 
paires" 

1540 PEN 3:PRINT"  exenples : 37, >PU 
55,93..." 

1550 PEN 2:PRINT:PRINT"7 -";:PEN 1: »JD 
PRINT" nombres quelconques de { a 9 

gn 

1560 PEN 3:PRINT"  exesples : 3,2 >RB 


0,45,78..." 

1570 PEN 1:LOCATE 1,25:PRINT"Quel n >LD 
iveau choisis-tu ? ";:PEN 2:PRINT c 
urtr$ 

1580 p=0 

1590 CLEAR INPUT 

1600 n$=INKEYS:p=p+i:1F n$="" AND p >IL 
HOD 204 THEN LOCATE 26,25:PRINT" 

*:G0TO 1600:ELSE IF n$="" THEN LOCA 

TE 26,25:PRINT curtr$:G0TO 1600 

1610 IF n$="" THEN LOCATE 26,25:PRI 

NT curtr$::G0T0 1600 

1620 IF n$="" OR INSTR(*"1234567",n$ >MK 
)=0 THEN PRINT CHR$(7);:G0T0 1600 

1630 n=VAL(n$):LOCATE 25,25:PRINT n >FZ 
5:FOR at=1 TO 1000:NEXT at 


1640 CLS )AA 
1650 RETURN >FF 
1660 ? )YF 
1670 REMBNNX##NNHHHNHENNNNENEE DUA 
1680 REN### entree du non ### >VH 


1690 REMFFERANN UC 
1700 ! )YA 
1710 PEN 1:LOCATE 1,12:PRINT"Ecris HF 
ton prenons et ton non:":PEN 2:LOCAT 

E 1,14:CLEAR INPUT: INPUT"",na$:lF n 
n$="" THEN 1710 

1720 na$=LOWER$(nm$) >PQ 
1730 FOR i=1 TO LEN(na$) >RK 


1740 IF i=1 OR maj=1 THEN maj-0:MID )PU 
$(na$, 1, 1)-UPPERS (HIDS (nf, 1, 1)) 

1750 IF MID$(nat, i,1)="-" OR MID$(n DT] 
a$,i,1)=% * THEN saj=i 


1760 IF 131 THEN IF (HID$Cnm,i,1) DUR 
=" ® AND MID$(na$,i-1,1)=" ") THEN 
HIDS Cna$, i, L)=CHR$(B) 

1770 non$=non$+M1D$(na$, 1,1) uu 
1780 NEXT >LH 
1790 FOR i=1 TO LEN(non$) >TU 


1800 IF MID$(non$,i,1)=" " THEN i=L >GY 
EN(non$) ELSE prenon$=prenon$+H1D$( 
non$,i,1) 
1810 NEXT >LB 
1820 PEN 1:LOCATE 1,17:PRINT"Bon co )>ZA 
urage, ";prenon$;"...":PRINT:PRINT" 

et ne LE reveille pas !" 


1830 FOR at-1 TO 2500:NEXT at )wz 
1840 RETURN >FG 
1850 ? >YG 
1860 REMBNHN#HNNNNHNNENNUNE >RQ 
1870 REN*### recitation ##4 >UH 


1880 REMNNHH NN 
1890 ? 

1900 CLS:INK 0,13:BORDER 7:INK 1,25 >BQ 
:INK 2,20:1NK 3,15:PEN 1 
1910 e=0:r=0: j=0:sc=0 
1920 IF n=1 OR n=2 THEN nq=9 ELSE n >EP 
q=10 


1930 FOR i=1 TO nq )LA 
1940 f1=0 )EB 
1950 ON n GOSUB 4400, 4430, 4460, 4510 DWD 
,4560, 4610, 4660, 4660 

1960 IF i=1 THEN 2000 NX 
1970 FOR ci=1 TO 1-1 NT 
1980 IF x(ci)=x(i) THEN 1950 NC 
1990 NEIT ci >ED 


2000 x$=STR$(x(1)):dx$="":FOR k=2 T >GD 
0 LEN(x$):dx$=dx$+c$(VAL(HID$(x$, k, 
1))):NEXT 

2010 CLS#2 

2020 IF i=nq THEN quest="question" 
ELSE ques$="questions" 

2030 LOCATE#1,9,2:PRINT#1,CHR$ (24) ; 
“Il te reste";nq-it{;ques$:;CHR$(24) 
;CHR$ (18) 

2040 IF n=8 THEN LOCATE 14,5:PRINT BE 


>HD 











CHR$(24);" CHAMPIONNAT ";CHR$(24) E 
LSE LOCATE 16,5:PRINT CHR$(24);" NI 
VEAU" ;n;CHR$ (24) 

2050 FOR chat=1 TO 3:LOCATE 18,21+c >KD 
hat:PRINT chat j$ (chat) :NEXT 

2060 LOCATE #2,2,3:PRINT#2, "moitie RG 
de":LOCATE#2, 13,2:PRINT#2, dx$ 

2070 LOCATE#2,8,6:PRINT#2,"---) ":x >KC 
=13:y=6:dh=1:G0SUB 4730:dh=0 

2080 IF rep$="troplent" THEN er=er+ 
i:x(er)=x(i):GOTO 2100 


2090 IF VAL(rep#)=x(1)/2 THEN GOSUB >YV 
2130 ELSE GOSUB 2160 

2100 NEXT i JU] 
2110 RETURN >EH 
2120 ’reponse juste )IH 


2130 j=j+1:LOCATE 18,19:PRINT"BRAVO VF 
{*:FOR at=1 TO 1000:NEXT at :LOCATE 
18,19:PRINT" gi 


2140 RETURN >FA 
2150 ’ reponse fausse )YA 
2160 LOCATE 17,18:PRINT"ERREUR...": >PP 


FOR chat=1 TO 3:LOCATE 18,21+chat:P 

RINT * “:NEXT:FOR chat=1 TO 6: 

LOCATE 19,19+chat:PRINT chatf$(chat 
):NEXT:FOR ch=15 TO 1 STEP-1:SOUND 

1,3000, 10,ch,,,31:NEXT ch:FOR at=1 

TO 1000:NEXT at 

2170 CLS:INK 0,10:BORDER 10:1INK 1,1 DWY 

7: INK 2,18:INK 3,16 

2180 er=erti:x(er)=x(i) 

2190 ON n GOSUB 2740, 2900, 2230, 3240 >WY 

2230, 3240, 3430, 3430 

2200 GOSUB 5130:BORDER 7:INK 1,25:1 

NK 2,20:INK 3,15:PEN 1 

2210 RETURN 

2220 ? 

2230 LOCATE 10,1:PRINT CHR$(24);"») 

> HOITIE DE "ix(1); "<<<"; CHR#(24) :P 

EN 1:PRINT:PRINT:PRINT"Ref lechis bi 

en :" 

2240 d=10#INT(x(1)/10) :u=x(i)-d 

2250 PRINT:PRINT"Tu sais que ";x(i 
J5"=";d;"4";u 

2260 t=0:PEN 3:PRINT:PRINT:PRINT"Do >TU 

nne la moitie de";d;"---) " 

2270 PEN 2:1=28-(d=10):y=9:G0SUB 47 )EQ 

30 

2280 nd=VAL(r$) DB 

2290 IF md<>d/2 THEN 2300 ELSE 2380 >AF 

2300 f=f+1:1F f(2 THEN PEN 1:LOCATE >MP 
1,y+1:PRINT"Faux, recospte.";CHR$( 

18):FO0R at=1 TO 1500:NEXT at:LOCATE 


>ZI 
)1Q 








28,y:PRINT CHR$(18):PRINT CHR$(18) 
:G0T0 2270 


2310 PEN 1:LOCATE 1,y+{:PRINT"Non, )BB 
c'est";d/2;CHR$(18) 

2320 FOR at=1 TO 1000:NEXT JUF 
2330 FOR rep=1 T0 5 >HJ 


2340 IF rep NOD 2-0 THEN PEN 0 ELSE >ED 
PEN 2 


2350 LOCATE 27,y:PRINT d/2;"  ":F0 >4B 
R at=1 TO 200:NEIT 

2360 NEXT )LC 
2370 GOTO 2390 >ND 


2380 PEN 1:LOCATE 1,y+1:PRINT'BIEN PK 
1"; CHR$ (18) 
2390 f=0:PEN 3:LOCATE 1,12:PRINT"Do DRE 
nne la moitie de";u;"----) « 
2400 PEN 2:1=29:y=12:G0SUB 4730 >YH 
2410 mu=VAL(r$) ED 
2420 IF auQu/2 THEN 2430 ELSE 2510 >AL 
2430 t=1+1:1F f(2 THEN PEN 1:LOCATE >MP 
1,y+1:PRINT"Faux, recospte.";CHR$( 
18):FO0R at=1 TO 1500:NEXT at :LOCATE 
29,y:PRINT CHR$(18):PRINT CHR$(18) 
:GOTO 2400 


2440 PEN 1:LOCATE 1,y+1:PRINT"Non, >CQ 
c'est";u/2;CHR$(18) 

2450 FOR at=1 TO 1000:NEXT >UK 
2460 FOR rep=1 TO 5 >HN 


2470 IF rep MOD 2=0 THEN PEN O0 ELSE >EH 
PEN 2 


2480 LOCATE 28,y:PRINT u/2;"  ":F0 DWA 
R at=1 TO 200:NEXT 

2490 NEXT >LG 
2500 GOTO 2520 >HD 


2510 PEN 1:LOCATE 1,y+1:PRINT'BIEN PE 
!";CHR$ (18) 

2520 FOR at=1 TO 1500:NEXT:CLS:LOCA >EM 
TE 10,1:PRINT CHR$(24);")>> MOITIE 
DE";x(i); "<<<"; CHRS (24) 

2530 PEN 1:PRINT:PRINT"La moitie de >JG 
“sx(i);"est egale a" 
2540 1F d/2=5 THEN esp$=" 
esp$=" * 

2550 PRINT:PRINT"la moitie de";d;"- >VL 
Srsrsse >";esp$;:PEN 2:PRINT d/2 

2560 PEN 1:PRINT"plus la moitie de" >NN 
su; 

2570 IF u<10 THEN PRINT"-"; JUF 
2580 PRINT"---->";:PEN 2:PRINT" + " >GJ 
su/2 

2590 LOCATE 28,8:PRINT"----";:1F x( >EA 
i) MOD 2C0 THEN PRINT"--" 

2600 f=0:PEN 3:LOCATE 1,9:PRINT"Cel >LX 
a fait combien ? 
2610 PEN 2:x=30-(d=10):y=9:G0SUB 47 DEF 


* ELSE HN 


30 

2620 r=VAL(r#):1F rOx(i)/2 THEN 26 >MQ 

30 ELSE 2710 

2630 f=f+1:1F fC2 THEN PEN 1:PRINT" >TC 

Faux, recompte.":FOR at=1 TO 1500:N 

EXT at:LOCATE 30,y:PRINT CHR$(18) :P 

RINT CHR$(18):G0T0 2610 

2640 PEN 1:LOCATE {,y+1:PRINT'Non, )FV 
c'est";x(1)/2;CHR$(18) 

2650 FOR at=1 TO 1000:NEXT >UH 
2660 FOR rep-1 TO 5 >HQ 
2670 IF rep NOD 2-0 THEN PEN 0 ELSE >EK 
PEN 2 

2680 LOCATE 29-(d=10),y:PRINT x(i)/ >HG 
25" ":FOR at=1 TO 200:NEXT 


2690 NEIT LI 
2700 GOTO 2720 >HH 
2710 PEN 1:LOCATE 1,y#1:PRINT'BIEN DFA 
[LP 

‘+ 

2720 1F f1=1 THEN RETURN TV 
2730 ? JTE 


2740 FOR at=1 TO 1000:NEXT:CLS DA 1.4 

2750 PEN 1:LOCATE 11,10:PRINT"Retie DAV 
ns bien ceci :" 

2760 PEN 2:LOCATE 1,8:PRINT STRING$ >RD 
(40,127) :LOCATE 1,16:PRINT STRINGS#( 

40,127):FOR af=9 TO 15:LOCATE 1,af: 
PRINT CHR$(127):LOCATE 40, af :PRINT 

CHR$(127):NEXT:FOR at=1 TO 1500:NEX 

T 

2770 PEN 3:LOCATE 9,14:FOR af=1 TO DMJ 
13:PRINT MID$("la moitie de",af,1); 

:1F MID$("la moitie de",af,1)>" * 

THEN SOUND 1,40,10,5 

2780 FOR at=1 TO 120:NEXT >T 
2790 NEXT >LK 
2800 PEN 2:FO0R af=1 TO LEN(STR#(x(1 >TL 
DD) :PRINT HID$C(STR$(x(i)),af,1);:1F 
MID$(STR$(x(i)),af,1)C2" " THEN S0 

UND 1,40,15,5 

2810 FOR at=1 TO 200:NEXT >TP 
2820 NEXT >LD 
2830 PEN 3:F0R af=1 TO S:PRINT MID$ )EJ 
(*est",af,1);:1F MID$(" est",af,1) 

<>" " THEN SOUND 1,40, 10,5 

2840 FOR at=1 TO 120:NEXT >TU 
2850 NEXT >LG 
2860 PEN 2:F0R af=1 TO LEN(STR$(r(i >DN 
)/2)):PRINT HID$(STR$(x(1)/2),at,1) 
321F MID$(STR$(x(i)/2),af,1)0" "TT 

HEN SOUND 1,40,15,5 

2870 FOR at=1 TO 200:NEXT:NEIT >P 
2880 RETURN >GB 
2890 >ZB 











2900 IF x(i)=10 AND VAL(1$)O11 THE DFJ 

N 3220 

2910 CLS:LOCATE 10,1:PRINT CHR$(24) DWF 
522) HOITIE DEix(i); "CCC": CHRS(24 

) 

2920 IF VAL(r$)=11 THEN f=0:LOCATE TJ 
1,13:PRINT"Tu dois trouver la moiti 

e de 10.":PRINT:GOTO 3090 

2930 PEN 3:LOCATE 11,4:PRINT"Conme )BT 
tu le sais, ":LOCATE 13,5:PRINT x(i) 
5"="5;x(i)/105;"# 10" 

2940 LOCATE 18,7:PRINT"donc":PEN 1: >DJ 

LOCATE 4,8:PRINT" (moitie de";x(1);C 
HR$(8);") = (moit. de";x(i)/10;CHR$ 
(8);") # 10" 

2950 f=0:PEN 3:PRINT:PRINT:PRINT"Do >AM 
nne la noitie de";x(i)/10;"---» ° 

2960 PEN 2:1=28:y=11:G0SUB 4730 >ZJ 
2970 nd=VAL(r$) >DH 
2980 IF ad(x(i)/20 THEN 2990 ELSE DL 
3070 

2990 f=f+1:1F fC2 THEN PEN 1:LOCATE >MM 
1,y+1:PRINT"Faux, recompte.";CHR$( 
18):FOR at=1 TO 1500:NEXT at:LOCATE 
28,y:PRINT CHR$(18):PRINT CHR$(18) 
:GOTO 2960 

3000 PEN 1:LOCATE 1,y+1:PRINT'Non, GR 
c'est";x(1)/20;CHR$(18) 

3010 FOR at=1 TO 1000:NEXT >uC 
3020 FOR rep=1 TO 5 MF 
3030 IF rep HOD 2-0 THEN PEN 0 ELSE )EA 
PEN 2 

3040 LOCATE 27,y:PRINT x(i)/205" )AH 
“:FOR at=1 TO 200:NEIT 

3050 NEIT >KK 
3060 GOTO 3080 >MH 
3070 PEN 1:LOCATE 1,y+1:PRINT'BIEN >PG 
":CHR$ (18) 

3080 f=0:LOCATE 1,14:PRINT"Maintena >GX 
nt, il faut calculer";x(1)/20;"# 10 

" 


3090 PEN 3:PRINT"Cela fait cosbien DLL 
an 

3100 PEN 2:x=21:y=15:G0SUB 4730 )YA 
3110 r=VAL(r$):IF rOx(i)/2 THEN 31 >MZ 
20 ELSE 3200 

3120 f=f+1:1F f(2 THEN PEN 1:PRINT" )RZ 
Faux, recospte.":FOR at=1 TO 1500:N 

EXT at:LOCATE 20,y:PRINT CHR$(18) :P 
RINT CHR$(18):GOT0 3100 

3130 PEN 1:LOCATE 1,y+1:PRINT"Non, >FP 
c'est";x(i)/2;CHR$(18) 

3140 FOR at=1 TO 1000:NEXT >UG 








3150 FOR rep=1 TO 5 >K 
3160 IF rep MOD 2-0 THEN PEN 0 ELSE >EE 
PEN 2 


3170 LOCATE 20,y:PRINT x(i)/25"  " )2C 
:FOR at=1 TO 200:NEXT 

3180 NEIT LD 
3190 GOTO 3220 >HH 
3200 PEN 1:LOCATE 1,y+1:PRINT'BIEN )FV 
1". 

‘9 

3210 IF f1=1 THEN RETURN TP 
3220 GOSUB 2740:RETURN RU 
3230 )YA 


3240 LOCATE 10,1:PRINT CHR$(24);">> >DD 
> MOITIE DE";x(i); "<<<": CHRS(24):f1 
={:PEN 3:LOCATE 11,6:PRINT"Conse tu 
le sais,":PEN 1:LOCATE 13,8:PRINT 
1(1);"=";x(1)-15"+ 1':PEN 3 
3250 LOCATE 13,10:PRINT*11 faut do >MN 
nc":LOCATE 6,12:PRINT"que tu trouve 
3 la noitie de";:PEN 1:PRINT x(1)-1 
:PEN 3:LOCATE 19,13:PRINT'et":LOCAT 
E 6,14:PRINT"que tu ajoutes la noit 
ie de ";:PEN 1:PRINT"1":GO0SUB 5130 
3260 x(i)=x(i)-1:1F x(1) MOD 10=0 T 
HEN GOSUB 2900:ELSE CLS:LOCATE 10,1 
:PRINT CHR$(24);">>> MOITIE DE";x(i 
)3"C<C";CHR$ (24) :PRINT:PRINT:PRINT: 
GOSUB 2240 
3270 FOR at=1 TO 1000:NEXT at:CLS:L 
OCATE 10,1:PRINT CHR$(24);">>> MOIT 
IE DE";x(i)+15; "CCC"; CHRS(24) :PEN 1: 
PRINT:PRINT:PRINT"La moitie de";x(1 
)5"=%5:x(1)/2;CHR$(8);", donc" 
3280 PRINT:PRINT"la moitie de";x(i) >LL 
+1;"=%5x(1)/25%+ 0.S":LOCATE 23,7:P 
RINT"(la moitie de 1)" 
3290 PEN 3:LOCATE 1,10:PRINT"Calcul >TB 
e ";x(1)/25%4 0.5 ---3":PEN 2:x=25 
:y=10:G0SUB 4730 
3300 x(i)=x(i)+{:r=VAL(r$):1F r=x(i >QN 
)/2 THEN 3380 
3310 PRINT"Non, c'est";x(i)/2;CHR$( >JZ 
18) 
3320 FOR at=1 TO 1000:NEIT at JUN 
3330 FOR rep=1 T0 5 )K 
3340 IF rep MOD 2-0 THEN PEN 0 ELSE )FE 
PEN 2 
3350 LOCATE 24,y:PRINT x(1)/2:FO0R a >WM 
t=1 TO 200:NEXT at 
3360 NEIT rep A 
3370 GOTO 3390 >NF 
3380 PEN 1:LOCATE 1,y+1:PRINT'BIEN PL 
1": CHR$(18) 
3390 FOR at=1 TO 1500:NEXT at:CLS AM 


V 


VV 


RA 


3400 GOSUB 2740 IC 
3410 RETURN >FB 
3420 ? >YB 


3430 IF x(i)<10 THEN GOSUB 2740:RET >FR 
URN 

3440 d=10#INT(x(i)/10):u=x(i)-d )ZA 
3450 IF u=0 THEN GOSUB 2900:RETURN >BH 
3460 IF u MOD 2-0 THEN GOSUB 2230:R >GH 
ETURN 


3470 GOSUB 3240:RETURN )RX 
3480 ? >YH 
3490 REMAHFHFHNNNEFHNNEEE >vX 
3500 REM### fin d'exercice ##4 >ED 
3510 REMAMENNHNNEHNNNE >VP 
3520 ? )YC 
3530 CLS:INK 0,0:1INK 1,26:INK 2,14: DJN 
INK 3,18 
3540 IF n<8 THEN 3690 NX 
3550 IF j=10 THEN 3580 >PA 
3560 PEN 1: LOCATE 3,4:PRINT"Tu n'a >PU 
s pas reussi aux 10 questions.":PEN 
2:PRINT:PRINT"Ce n'est pas si faci 
le qu'on le croit...":PRINT"Mais c' 
est deja tres bien d'avoir accede": 
PRINT" au championnat." 
3570 PEN 3:PRINT:PRINT:PRINT" U >PK 


ne autre fois certainesent...":GO0T0 
3670 

3580 LOCATE 10,5:PRINT"Ton score es >ER 
t de";sc:trouve=0 

3590 FOR 1=1 TO nbchanp 
3600 IF UPPER$(nom$)=chanp$(i) THEN >BU 
trouve=i :i=nbchasp 
3610 NEXT i 

3620 IF trouve=0 THEN PEN 2:LOCATE 
8-LEN(prenon$)/2,6:PRINT"Bravo, ";p 
renom$;", tu as reuss1 !":LOCATE 1, 
9:PRINT"Je t'inscris dans la liste 
des chaspions":nbchasp=nbchasp+{:ch 
asp (nbchanp)=non$:score(nbchasp)=s 
c:G0T0 3660 
3630 1F scoreltrouve)=sc THEN PEN 2 >YC 
LOCATE 10,9:PRINT"Tu as egale ton 
record.":LOCATE 13,11:PRINT"FELICIT 
ATIONS !!!":G0T0 3670 
3640 IF scoreltrouve)>sc THEN PEN 2 >VC 
:LOCATE 8,9:PRINT"Ton record n'est 

pas battu.":LOCATE 17,11:PRINT"Donn 

age !":LOCATE 7,13:PRINT"C'est tout 

de sense tres bien":LOCATE 7,14:PRI 
NT'd'etre arrive a ce niveau...":G0 
TO 3670 

3650 IF score(trouve)<sc THEN PEN 2 >JG 
:LOCATE 9,9:PRINT"Tu as battu ton r 
ecord.":LOCATE 14,11:PRINT"FELICITA 











TIONS !!!":LOCATE 7,13:PRINT"Je l'i 
nscris tout de suite." :score(trouve 
)=sc 

3660 OPENOUT"chanpaoi":FOR i=1 TO n >YT 
bchasp:WRITE#9, chasp#$(i),score(i):N 

EXT i:CLOSEOUT 

3670 GOSUB 5130 )H 
3680 GOTO 3750 >NK 
3690 PEN 1:LOCATE 12,10:PRINT"Sur"; )AE 
ng;"questions," 

3700 LOCATE 5,12:PRINT"Tu as donne" )PD 
5); "reponses exactes." 

3710 PEN 2:1F j=nq THEN LOCATE 1,17 >ZW 
:PRINT"Bravo ! Tu ne pouvais pas fa 

ire nieul... 


3720 ’ )YE 
3730 fin de partie )YF 
3740 ? >YG 


3750 PEN 3:LOCATE 5,20:PRINT"Veur-t >JT 
u recommencer (D/N) ?";:PEN 2:PRINT 

” 

3760 suit$=INKEY$:[F suit$="" THEN )GY 
3760 

3770 IF INSTR("ONon",suit#)=0 THEN 
LOCATE 1,1:PRINT CHR$(7):G0TO 3760 
3780 IF UPPER$(suit$)="0" THEN suit >EE 
$="OUI" ELSE suit$="NON" 


>TQ 


3790 LOCATE 33,20:PRINT suit >YF 
3600 FOR at=1 TO 1500:NEIT at:CLS AH 
3810 IF suit$="QOUI" THEN 4100 NF 


3820 IF er=0 THEN LOCATE 1,5:PRINT" >WK 
Cosse tu veur...":FOR at=1 TO 1500: 
NEXT at:GOT0 4050 

3830 LOCATE 1,5:PRINT"Coanme tu veux >AK 
» “yprenos$;"." 

3840 IF er=1 THEN er$="ton erreur." >MJ 
ELSE er$="tes erreurs." 

3850 PEN 1:LOCATE 5,7:PRINT"Mais av DWY 
ant que tu ne t'en ailles," 

3860 PRINT" je voudrais te faire rev >ZC 
oir ";er$ 


3870 GOSUB 5130 )IK 
3880 FOR e=1 TO er LU 
3890 CLS >AK 


3900 PEN 1:LOCATE 1,6:PRINT'Quelle >TU 
est la moitie de";x(e);"? 

3910 PEN 3:LOCATE 30,6:LINE INPUT " >QR 
",ax$:ax=VAL(nx$):IF ex=0 THEN PRIN 

T CHR$(7):LOCATE 30,6:PRINT CHR$(18 
):G0TO 3910 

3920 IF axCx(e)/2 THEN 3930 ELSE 4 >CH 
030 

3930 INK 2,15,18:SPEED INK 10,10:PE 
N 2:LOCATE 18,12:PRINT"FAUX":PEN 1: 


VV 


WL 





PRINT:PRINT" Je sens que je va 
1s eclater.":PRINT:PRINT" 

SAUVE-TOI !!!":FO0R at=1 TO 1000 
:NEXT at : 
3940 FOR son=800 TO 100 STEP-5:SOUN >AU 
D 1,s0n,2,15:NEXT son 
3950 SPEED INK 3,3:BORDER 7,11:ENV DTA 
1,15,-1,15:SOUND 1,0,400, 15, 1,0, 30: 
OUT 255,8:OUT 256,1 
3960 FOR inn=1 TO 6:FOR in=1 TO 26: >YY 
INK 0,in:BORDER in:FOR at=1 TO 3:NE 
IT at:NEXT in:NEXT inn 
3970 OUT 256,0:BORDER 0:1INK 0,0:INK >FQ 
2,14 
3980 CLS:PEN 1:LOCATE 2,5:PRINT"J'e >RF 
spere que tu n’as pas eu trop peur. 
":PRINT:PRINT:PRINT" En tout cas, 
tu dois retenir que” 
3990 SPEED INK 5,100: INK 2,25,7:INK >HZ 
3,7,25 
4000 PEN 2:LOCATE 8,16:PRINT "LA MO >RU 
ITIE DE"; :PEN 3:PRINT x(e);:PEN 2:P 
RINT "C'EST"; :PEN 3:PRINT x(e)/2 
4010 FOR at=1 TO SO:NEXT >RQ 
4020 GOSUB 5130:INK 2,14:INK 3,18:B >VA 
ORDER 7:GO0T0 4040 
4030 PEN 2:PRINT:PRINT"Bien":FOR at »ZC 
={ TO 1500:NEXT at 
4040 NEIT e >UK 
4050 MODE O0:SPEED INK 25,25:INK 2,2 >EP 
5,7:INK 3,7,25:PEN 2:LOCATE 6,10:PR 
INT*Au revoir":PEN 3:LOCATE (21-LEN 
(prenos$))/2,16:PRINT prenon$ 
4060 FOR at=1 TO 10000:NEXT at )1Q 
4070 HODE 1:PAPER O:PEN 1:BORDER 1: >MH 
CALL &BCO2 


4080 END >ZA 
4090 ? )YF 
4100 PEN 2:er=0 )1] 
4110 IF n<B THEN 4140 >NF 


4120 IF j>7 THEN LOCATE 15-LEN(pren >RC 
on$)/2,5:PRINT"D'accord, ";prenost; 
*,":PRINT:PRINT" tu peux reprend 
re le chaspionnat.":GOSUB 5130:RETU 
EN 

4130 GOTO 4200 

4140 IF j=nq THEN 4230 

4150 IF n=1 OR (j=nq-1 AND n(4) OR 
(3>8 AND n>3) THEN 4170 ELSE 4200 
4160 >)" 
4170 LOCATE 1,5:PRINT"D'accord, ";p >HM 
renos$;",":PRINT:PRINT'sais tu rest 
es au niveau";n 

4180 GOSUB 5130:RETURN 

4190 ? 


>B 
>PF 
>GN 


)R4 
)YG 


4200 n=n-1:LOCATE 1,5:PRINT"D'accor 
d, ";prenon$;",":PRINT:PRINT"Mais c 
ette fois tu joues au niveau"in 
4210 GOSUB 5130:RETURN 

4220 ! 

4230 n=n+1:1F n=8 THEN 4250 

4240 LOCATE 1,5:PRINT"D'accord, ";p 
renon$;".":PRINT:PRINT'Mais cette f 
ois, tu nontes au niveau" ;n:GO0SUB 5 
130:RETURN 

4250 PEN 1:LOCATE 11,1:PRINT"Tu vie 
ns de realiser" :LOCATE 7,2:PRINT'"le 
seilleur score possible.":PRINT:PR 
INT" Tu peux donc participer au cha 
apionnat." 

4260 PEN 2:LOCATE 12,8:PRINT"I1 s'a 
git toujours":PRINT" de trouver 
la noitie desandee,":LOCATE 17,10: 
PRINT"sais. .." 

4270 PEN 3:LOCATE 15,14:PRINT"ATTEN 
TION!":LOCATE 9,16:PRINT"TU N'AS QU 

E 10 SECONDES" :PRINT:PRINT" POUR TR 
OUVER LA REPONSE ET L' INSCRIRE." 

4280 GOSUB 5130 

4290 PEN 1:LOCATE 1,5:PRINT " Sit 

u peux repondre aux 10 questions" :P 
RINT® j'inscrirai ton nos dans ma 
senoire":PRINT" et tu pourras, 
un autre jour, ":PRINT" essayer 
de battre ton record." 

4300 IF nbchasp=0 THEN 4330 ELSE 43 
10 

4310 PRINT:PRINT:PRINT:PRINT" Pour 

voir les champions deja inscrits,": 

PRINT" appuie sur <ESPACE). 

":CLEAR INPUT:CALL &BB06 

4320 z=(25-nbchasp)/2:CLS:PLOT 0, 39 

8-16#(z-1),2:DRAUR 638,0:DRAUR 0,-1 

6*(nbchaap+2) :DRAWR -638,0:DRAUR 0, 

16% (nbchasp+2):FOR i=1 TO nbchasp:L 

OCATE 2,z+i:PRINT chasp#(i):LOCATE 

33,2+i:PRINT USING "#8#4#4";scoreli 
):NEXT 

4330 GOSUB 5130:RETURN 

4340 ? 

4350 REMIHHRONEUNNEUNNEE 

4360 REM### tirage des nombres ### 

4370 REMAHHRRORNENNNNENEE 

4380 ? 

4390 REN---niveau 1 

4400 x(i)=INT(RND49)+1 

4410 RETURN 

4420 REM---niveau 2 

4430 x(i)=CINT(RND#9)+1)310 

4440 RETURN 


V 


ME 


>RP 
YA 
>UH 
NZ 


v 


DU 


)YH 


)IF 
>KA 


CA 


>TZ 








4450 REN---niveau 3 >N4 
4460 d(i)=CINTCRND#4) +1)#20 >VP 
4470 uli)=CINT(RND#4)+1)22 JUL 
4480 x(i)=d(i)tu(i) >NA 
4490 RETURN >GA 
4500 REM---niveau 4 NT 
4510 d(i)=CINT(RND#4) +1)420 >VK 
4520 uCi)=C(INT(RND#4)+1)#2) -1 )IV 
4530 x(i)=d(i)tu(i) DHE 
4540 RETURN >FG 
4550 REN---niveau 5 >NZ 
4560 d(i)=C(INT(RND#4)+1)#20)-10  DYV 
4570 u(i)=(INT(RND#4)+1)42 >UH 
4580 x(i)=d(i)tu(i) >NB 
4590 RETURN >GB 
4600 REN---niveau 6 )N4 
4610 d(i)=C(INT(RND#4)+1)#20)-10  )YQ 
4620 u(i)=C(INT(RND#4)+1)#2)-1 )IN 
4630 x(i)=d(i)tu(i) >KF 
4640 RETURN >FH 
4650 REN---niveau 7 >NC 
4660 x(1)=INT(RND#99) +1 >RF 
4670 RETURN >GA 
4680 ! >ZA 


4690 REMHYHHHHHNNUMEENNRNNNENENNEES )YG 
4700 REM### saisie des reponses ### CH 
4710 REM#NH HN HNNENNEENNNANNEIX )YZ 


4720 >YF 
4730 t=TIHE >ÙF 
4740 r$="":k$="":rept="" >RB 


4750 IF dh=1 THEN LOCATE#2,x,y+1:PR >FN 
INT#2, curtr$:ELSE LOCATE x,y:PRINT 
curtr$ 


4760 CLEAR INPUT >LU 
4770 VHILE k$C)CHRS(13) OR r$=""  )YE 
4780 k$=INKEYS > 
4790 IF n=8 THEN GOSUB 5020 >UD 
4800 IF rep$="troplent" THEN 4980  >DW 
4810 IF k$="" THEN 4780 >PK 


4820 ask=ASC(k$):1F ask=46 THEN ask DFV 
=58 

4830 IF dh=0 THEN 4890 >PB 
4840 IF k$=CHR$(127) AND r$Q@"" THE )»YZ 
N LOCATE#2, xt (LEN(r$)/5)-1,y:PRINTS 
2,ef$;et$:r$=LEFT$(r$,LEN(r$)-5):re 
p$=LEFT$(rep$,LEN(rep$)-1) 

4850 1F ask>47 AND ask<(59 AND LEN(r >ZL 
$)<21 THEN r$=r$tc$(ask-48) :rep$=re 
p$tk$ 

4860 LOCATE#2,x,y:PRINT#2,r$;:1F LE >AJ 
NCr$)<21 THEN PRINT#2,CHR$ (10) ;curt 


r$; 
4870 GOTO 4920 >PB 
4880 ? )ZC 





4890 IF k$=CHR#(127) AND r$C>"" THE >VK 
N LOCATE x+LENCr$)-1,y:PRINT CHR$(3 

2); CHR$(32) :r$=LEFT$(r$, LEN(r$)-1) 

4900 IF ask>47 AND ask<59 AND LEN(r >UV 
$)€5 THEN r$=r$tk$ 

4910 LOCATE x,y:PRINT r$;curtr$; >BQ 
4920 WEND >JXK 
4930 IF r$Cc$(10) AND r$(>"." THEN >DD 
4960 

4940 IF dh=1 THEN LOCATE#2,x+(LEN(r >GF 
$)/5)-1,y:PRINT#2,ef$;ef$ ELSE LOCA 

TE xtLEN(r$)-1,y:PRINT CHR$(32) ; CHR 
#(32) 

4950 GOTO 4730 >K 

4960 1F dh=i AND LEN(r$)(21 THEN PR )FA 
INT#2,CHR$ (8) ;ef$ ELSE PRINT CHR#(8 
);CHR$ (32) 

4970 IF n=8 THEN sc=sc+(4000-tt)c4 BY 


4980 RETURN GE 
4990 " ZE 
5000 ? INPUTYAIT pour championnat )XH 
5010 ? Del 


5020 tt=TIME-t:1F tt>2500 THEN LOCA >YF 
TE 12,19:PRINT"Le temps passe..." 


5030 IF tt>4000 THEN 5040 ELSE 5060 >ZE 
5040 FOR ef=1 TO 6:LOCATE 1,18tef:P )4B 


RINT CHR$(18):NEXT:LOCATE 16,19:PRI 
NT*trop tard":LOCATE 9,21:PRINT"il 
fallait repondre";x(1)/2:rep$="trop 
lent* 

5050 GOSUB 5130 )1B 
5060 LOCATE 1,19:PRINT CHR$(18):LOC >QD 
ATE 1,21:PRINT CHR$(18):LOCATE 1,25 
:PRINT CHR$(18) 

5070 RETURN >FF 
5080 ? YF 
6090 REMHHNRHNENNEHNHNEREE )2C 
4 

5100 REM### attente pour lecture ## )DU 
# 

S110 REMANRERNERNEMRMNENES )7N 
4 


5120 ? )YA 
5130 p=0:CLEAR INPUT >PF 
5140 WHILE INKEY$="" >PZ 


5150 p=pt1:PEN p HOD 4:LOCATE 11,25 >NW 
:PRINT'Appuie sur (ESPACE)" 


5160 WEND )JG 
5170 CLS:PEN 1 )TC 
5180 RETURN >FH 
5190 ? >YH 
5200 ? )IK 


5210 IF ERR-32 AND DERR-146 THEN RE >CU 
SUME 1280 ELSE PRINT'erreur ligne"; 
ERL 






10 REM  yposssgonnessesssssssssscs DAV 
20 REM : t DEC 
30 REM :  CLAUDE LE MOULLEC >WA 
40 REM : : EE 
50 REM : RE 
60 REM : >EG 
70 REM )TZ 
80 REM : )EJ 
90 REM : : PB 
100 REM : 5  >KF 
110 REN SSSR AE 
120 SYMBOL AFTER 200 >PH 


130 SYHBOL 221,0, 138, 142,138, 138,13 >HJ 
8,234,0 

140 SYMBOL 222,0,224,128,128,128,12 >HG 
8,224,0 

150 SYHBOL 223,0,238, 138,138,234,42 GA 
, 238,0 

160 SYHBOL 224,0,238, 132, 132,196,13 >HD 
2,132,0 

170 SYMBOL 225,0,174,170,170,174,23 >HK 
4,170,0 

180 SYHBOL 226,0,238, 168,232,204,16 >HZ 
8,174,0 

190 MEMORY &9EFE:LOAD "roulapin",&9 >KB 





fe, 


[ 
‘ 
+ 


P [ 
d'atatatatate 


(] 
+ 


L 
+ 







t'ute 
[1 L 


L] 
+ 


200 RESTORE 210:FO0R h=4A350 TO &A36 


| B:READ a$:POKE h,VAL("&"+a$) :NEXT 


| 210 DATA 21,A2,C0,06,B0,C5,E5,06, AC 


,C5,3E, 00, 77,23,C1, 10,FB,E1, CD, 34, A 
3,C1,10,ED, C9 
220 GOSUB 4120:MODE O:BORDER 0 


| 230 RESTORE 240:F0R h=0 TO 15:READ 


| a:INK h,a:NEXT 
| 240 DATA 0,3,2,11,9,24,3,6,0,16,6,1 





3,26,24,9,18 

250 DEF FN potx,y)=&C002+(y-1)#80+( 
x-1)#4 

260 IF PEEK(&A340)=1 THEN ga-8:da=1 
tht=0:ba=2:fe=9 ELSE ga=74:da=75:ht 
=7/2:ba=73:fe-76 

270 DIM sp(15):FOR h=0 TO 14:sp(ht+1 
)=89F70+(h#64) :NEXT 


280 FOR h=&A1FO TO &A1F0+63:POKE h, 


O:NEXT 

290 DIH jeu(21,13):DIM a1$(11) 
300 TR$-CHR$(22)+CHR$(1) 

310 NR$-CHR$(22)+CHR$(0) 

320 TEMPS=150:SC-0:clee-0:tt=150:FI 
N=O:VIE=S:ta=1 

330 ENV 1,100,3,1:ENT 1,100,2,2 
340 ENV 2,10,-1,2:ENT 2,10, -2,2 
350 ON BREAK GOSUB 4090 

360 REM :::: DESSIN BASE :::: 
370 FOR h=1 TO 23 STEP 2 


[1 
daatatatete 














Claude LE MOULLEC 


Valable pour 
CPC 464-664-6128 


Arsène Lapin, comme son 
illustre cousin, est un monte-en- 
l'air. Il doit ramasser tous les 
sacs d'or qui parsème les 
20 pièces du château 
où il est entré. 


P our les atteindre, il peut créer des 
échaffaudages de cartons. Durant 
son périble, plusieurs gardiens viendront 
l'importuner. 

Le lancement du jeu se fait par RUN 
"LAPIN". 

Le jeu se présente en 2 fichiers. Un 
fichier BASIC "LAPIN" et un fichier bi- 
naire "ROUTLAP" qui pour les CPC 464 
{K7) devra se trouver à la suite du premier. 
Le fichier Basic DATALAP contient les 
datas du fichier binaire. Il faut le lancer 
pour obtenir "ROUTLAP". 


380 CALL &A30C,FN poti,h)-2,5p(7) >ZE 

390 CALL &A30C,FN po(20,h)-2,sp(7)  >AM 

400 NEXT h >NB 

410 FOR h=1 TO 20 >BH 

420 CALL &A30C,FN poth,1)-2,5p(7) »ZZ 

430 CALL &A30C,FN poth,24)-2,sp(7): >HJ 

NEXT h 

440 GOSUB 3260:G0SUB 450:G0T0 490  >AN 

450 CALL &A350 >KE 

460 FOR g=1 TO 21:jeu(g,1)=10: jeutg >RX 

513)=10:NEXT g 

470 FOR g=1 TO 13: jeu(1,g)=10: jeu(2 >BH 

1,&)=10:NEXT g:RETURN 

480 REM :::: BRANCHEMENT :::: >XU 

490 ON TA GOTO 510,530,550,570,590, >FN 

610,630,650,670,690, 710, 730.750, 770 

. 790,810,830,850,870,890,910 

500 GOTO 510:0N BREAK GOSUB 3270 )ZY 

510 RESTORE 3290:GO0SUB 930:ca=2 20 

520 PEN 1:LOCATE {,1:PRINT"A/1 0/3 >PF 
200 00000" :GOSUB 3060:GO0T0 1210 

530 RESTORE 3330:G0SUB 930 >VH 

540 PEN 1:LOCATE 1,1:PRINT"A/2 0/2 >PH 
200 00000:GO0SUB 3060:G0T0 1210 

550 RESTORE 3370:G0SUB 930:ca=1 )2T 

560 PEN 1:LOCATE 1,1:PRINT"A/3 0/3 >BK 
200 00000":G0SUB 3060:TEMPS-200: 

nbkey=3:ch=1:G0T0 1210 

570 RESTORE 3410:G0SUB 930:ca=2 >ZQ 

580 PEN 1:LOCATE {,1:PRINT"A/4 0/4 DBT 


200 00000":GOSUB 3060:nbkey=0:G0 
TO 1210 
590 RESTORE 3450:G0SUB 930:ca=1 2 
600 PEN 1:LOCATE 1,1:PRINT"A/5 0/5 PL 
200 00000":G0SUB 3060:G0T0 1210 


610 RESTORE 3490:G0SUB 930:ca=2 >ZU 

620 PEN 1:LOCATE 1,1:PRINT"B/1 0/1 >PC 

4 200 00000":G0SUB 3060:G0T0 1210 

630 RESTORE 3530:G0SUB 930:ca=3 >ZR 

640 PEN 1:LOCATE 1,1:PRINT"B/2 0/2 >PK 
200 00000":GO0SUB 3060:G0T0 1210 


650 RESTORE 3570:G0SUB 930:ca=1 >2M 

660 PEN 1:LOCATE 1,1:PRINT"B/3 0/4 >JZ 
200 00000" :G0SUB 3060:nbkey=4:ch 

=2:G0T0 1210 

670 RESTORE 3610:G0SUB 930:ca-0 >ZR 

680 PEN 1:LOCATE 1,1:PRINT"B/4 0/4 >BV 
200 00000" :G0SUB 3060:nbkey=0:G0 

TO 1210 

690 RESTORE 3650:G0SUB 930: ca=2 >ZA 

700 PEN 1:LOCATE 1,1:PRINT"B/5 0/5 >PN 
200 00000":GOSUB 3060:G0T0 1210 


710 RESTORE 3690:G0SUB 930:ca=4 )ZZ 
720 PEN {:LOCATE 1,1:PRINT"C/1 0/3 >PK 
200 00000":GOSUB 3060:G0T0 1210 


730 RESTORE 3730:G0SUB 930:ca=1 ZT 
740 PEN 1:LOCATE 1,1:PRINT"C/2 0/4 >PP 
200 00000":GO0SUB 3060:G0T0 1210 


750 RESTORE 3770:G0SUB 930:ca=1 >ZZ 

760 PEN 1:LOCATE 1,1:PRINT"C/3 0/4 )JB 
200 00000":G0SUB 3060:nbkey=4:ch 

=2:G0T0 1210 

770 RESTORE 3810:G0SUB 930:ca=2 ZX 

780 PEN 1:LOCATE 1,1:PRINT"C/4 0/6 >TV 
200 00000":G0SUB 3060 :TEMPS:200: 

nbkey=0:G0TO 1210 

780 RESTORE 3850:G0SUB 930 )\D 

800 PEN 1:LOCATE 1,1:PRINT"C/5 0/6 >PR 
200 00000":GO0SUB 3060:G0T0 1210 


810 RESTORE 3890:G0SUB 930:ca=1 )ZZ 
620 PEN 1:LOCATE 1,1:PRINT"D/1 0/5 >PP 
200 00000":G0SUB 3060:G0T0 1210 


830 RESTORE 3930:G0SUB 930:ca=2 ZX 
840 PEN {:LOCATE 1,1:PRINT"D/2 0/8 >P4 
200 00000":G0SUB 3060:G0T0 1210 








850 RESTORE 3970:G0SUB 930:ca=1 >ZC 

860 PEN 1:LOCATE 1,1:PRINT"D/3 0/3 »JB 
200 00000" :GO0SUB 3060:nbkey=3:ch 

=2:G0T0 1210 

870 RESTORE 4010:G0SUB 930:ca=2 >ZQ 

880 PEN 1:LOCATE 1,1:PRINT"D/4 0/4 >BZ 
200 00000" :GO0SUB 3060:nbkey=0:G0 

TO 1210 

890 RESTORE 4050:G0SUB 930 )vX 

900 PEN 1:LOCATE 1,1:PRINT"5/5 0/5 >PB 
200 00000" :G0SUB 3060:G0T0 1210 


910 TA=1:G0T0 490 >LH 
920 REM :::: DESSIN TABLEAU :::: >ZX 
930 spt=8:cx=4:GOSUB 940:spt=7:cx=5 >BL 
:GOSUB 940:G0T0 1100 

940 FOR h=1 TO 11:READ ai RE 
950 ai$(h)=BIN$(ai,10):NEXT h JU 
960 FOR h=1 TO 11:1F ai$(h)=*000000 >NC 
0000" THEN 1010 

970 FOR g=1 TO 10 >CG 
980 bi$=MID$#(a1$(h),g,1):b{=VAL(b1$ >CF 
) 

990 IF bi1=1 THEN CALL &A30C,FN po(g >QN 
> (h#2)+1),sp(spt):jeu(g+i,h+{)=cx 

1000 NEXT g DUE 
1010 SOUND 1, INT(RND#600)+60,5,15:N >HV 
EXT h 

1020 FOR h=1 TO 11:READ ai >TK 
1030 ai$(h)=BIN$(ai,9):NEXT h > 
1040 FOR h=1 TO 11:1F a{$(h)="00000 >NV 
0000" THEN 1090 


1050 FOR g=1 TO 9 CA 
1060 bi$=HID$(ai$h),g,1):b1=VAL(b{ >DC 
#) 


1070 IF b1=1 THEN CALL LAGOC,FM pol DYU 
g+10, (h#2)+1),sp(spt):jeu(g+11,h+1) 

=Cx 

1080 NEIT g NC 
1090 SOUND 1, INT(RND#600)+60,5,15:N >RD 
EXT h:RETURN 

1100 READ ptx,pty:CALL &A30C,FN pot >WZ 
ptx,pty),sp(10):jeutptx+i,pty/2)=5 

1110 READ nbkey:FOR h=1 TO nbkey >AK 
1120 READ a,b:CALL &A30C,FN pola,b) >ZD 
:3p(9): jeu(ati,b/2)=3 

1130 NEIT h >UK 
1140 READ x,y:CALL &A3OC,FN polx,y) >FP 
,3P(5):jeu(x+1, (y+1)/2)=1 

1150 ai=0:n1=0:READ mons:IF mons=0 QE 
THEN RETURN 

1160 IF mons=1 THEN tt=50:G0T0 1190 >NC 


20 





ELSE tt=10 

1170 READ nx,ny:CALL &A30C,FN po(nx >PU 
»ny),sp(14) 

1180 sn=1:n1=1:EVERY 850,1 GOSUB 30 >DD 
50 

1190 READ sx,ny:CALL &A30C,FN potax >PQ 
»2y),3p(13) 

1200 sa=1:n1=1:EVERY 950,2 GOSUB 30 >MV 
20:RETURN 

1210 EVERY 250,0 GOSUB 3090:SOUND 2 >RA 


,20,0,15,2,2,31 

1220 REM :::: ENTREE ORDRES :::: )ZLJ 
1230 IF mi=1 THEN GOSUB 2420 >VC 
1240 IF ni=1 THEN GOSUB 2700 13 
1250 IF FIN=1 THEN 3160 > 


1260 IF INKEY(ga)=0 THEN sens=1:G0T >JV 
0 1350 
1270 IF INKEY(da)=0 THEN seng=2:G0T )JY 
0 1480 


1280 IF INKEY(ht)=0 THEN 1710 >uH 
1290 IF INKEY(ba)=0 THEN 1880 JV 
1300 IF INKEY(fe)=0 THEN 1620 )4L 
1310 GOTO 1230 )LJ 


1320 CALL &A30C,FN polxi,y1),sp(11) >BR 


1330 jeu(x1+1,(y1+1)/2)=0:RETURN  >AP 
1340 ’##### VERS LA GAUCHE ##### )YA 
1350 xi=x:yi=y:x=x-1 )0E 
1360 IF jeu(x+1,(y+1)/2)=0 THEN G0S DUX 
UB 1320:GO0T0 1410 

1370 IF jeutr+i,(y+1)/2)=6 THEN G0S >UG 
UB 1320:G0T0 2330 

1380 IF jeu(xt{,(y+1)/2)=3 THEN GO0S )>GA 
UB 2250:G0SUB 1320:G0T0 1410 

1390 IF jeu(xt1,(y-1)/2)=0 AND jeut >CB 
1+2,(y-1)/2)=0 THEN 1400 ELSE x=x+1 
:GOTO 1230 


1400 GOSUB 1320:y=y-2 >PU 
1410 CALL &A30C,FN polx, y), sp(2) >ZP 
1420 SOUND 1,300,5,1,1,1,15 DUT 
1430 FOR t=1 TO tt:NEXT )RI 
1440 CALL &A30C,FN po(x,y),sp(4) )2N 
1450 FOR t=1 TO tt:NEXT )RZ 


1460 jeul(x+1,(y+1)/2)=1:1F jeu(x+i, DHF 
(y+3)/2)=0 THEN 2050 ELSE 1230 

1470 "##### VERS LA DROITE ##### DYE 
1480 xi=x:yl=y:x=xt1 QG 
1490 IF jeulx+1,(y+1)/2)=0 THEN GOS DUF 
UB 1320:GO0T0 1540 

1500 IF jeulx+1,{y+1)/2)=6 THEN G0S DUB 
UB 1320:G0T0 2330 

1510 1F jeulx+1,(y+1)/2)=3 THEN G0S >GZ 


UB 2250:G0SUB 1320:G0T0 1540 

4520 IF jeulx+1,(y-1)/2)=0 AND jeul >20 
x, (y-1)/2)=0 THEN 1530 ELSE x=x-1:G 
OTO 1230 


1530 GOSUB 1320:y=y-2 >PY 
1540 CALL &A3OC,FN polx,y),spti) ZT 
1550 SOUND 1,300,5,1,1,1,15 >UX 
1560 FOR t=1 TO tt:NEXT >RB 
1570 CALL &A30C,FN polx,y),sp(3)  ZY 
1580 FOR t=1 TO tt:NEXT >RD 


1590 jeutx+1,(y+1)/2)=1:1F jeu(x+i, >HK 
(y+3)/2)=0 THEN 2050 ELSE 1230 

1600 CALL &BB18:M0DE 1:PEN 1:END >ZH 
1610 REM :::: POSE CAISSES :::: )YC 
1620 ON sens GOTO 1630, 1660 JUA 
1630 IF jeulx,(y+1)/2)=0 THEN 1640 JC 
ELSE 1230 

1640 CALL &A30C,FN polx-1,y),3p(8) BJ 
1650 jeulx, (y+1)/2)=4:G0T0 1230 )YE 
1660 IF jeulx+2,(y+1)/2)=0 THEN 167 >KR 
0 ELSE 1230 

1670 CALL &A3OC,FN polxti,y),sp(8) >BK 
1680 SOUND 1,200,3,5 >NC 
1690 REM :::: CAISSE DISPARAIT :::: >CU 








1700 jeulxt2,(y+1)/2)=4:G0T0 1230  >AC 
1710 IF jeul(x+1,(y-1)/2)=4 THEN 173 DBF 
0 

1720 IF jeulx+i,(y-1)/2)=3 THEN G0S >TH 
UB 2250 ELSE 1230 

1730 CALL &A30C,FN polx,y),3p(11) AZ 
1740 CALL &A30C,FN polx,y-1),sp(5) >BG 
1750 FOR t=1 TO tt/2:NEXT t )VF 
1760 SOUND 1,800,5,12,,,10 >TC 
1770 CALL &A30C,FN polx,y-1),5p(11) >BX 


1780 CALL &A30C,FN polx, y),sp(5) >2D 
1790 FOR t=1 TO tt/2:NEXT t >VK 
1800 SOUND 1,800,5,12,,,10 )TI 
1810 CALL &A30C,FN polx,y),sp(11) DAY 
1820 CALL &A30C,FN polx,y-2),3p(5) >BG 
1830 FOR t=1 TO tt/2:NEXT t WE 
1840 CALL &A30C,FN po(x,y-2),sp(11) >B4 


1850 CALL &A30C,FN pol(x,y),sp(5) >2B 
1860 SOUND 1,800,5,12,,,10 >TD 
1870 jeutx+1,(y-1)/2)=0:G0T0 1230  >AH 
1880 IF jeu(x+1,(y+3)/2)=4 THEN 190 >BN 
0 
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FT HORS-SERIE 
LG n°4,7, 8,9, 10, 11, 12, 13, 14, 15,16_15F 
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L + DISQUETTES HORS-SERIE 

Q HS 1, 2, 3, 4, 5, 6,7, 8,9, 10, 
111213, 14, 15, 16, 17, 18, 19, 20 


I Chaque disquette comporte tous les programmes du n° hors-série cor- 


1890 IF jeu(x+1,(y+3)/2)=3 THEN GO0S TU 
UB 2250 ELSE 1230 

1900 jeu(x+1,(y+1)/2)=0:CALL &A30C, >VP 
FN polx,y),s3p(11) 

1910 CALL &A30C,FN po(x,y+1),5p(5) >BD 
1920 FOR t=1 TO tt/2:NEXT t )VE 
1930 SOUND 1,700,5,12,,,10 TA 
1940 CALL-&A30C,FN po(x,y+1),sp(11) >BU 


1950 CALL &A30C,FN po(x,y),sp(5) >ZC 
1960 FOR t=1 TO tt/2:NEXT t NI 
1970 CALL &A30C,FN polx,y),sp(11)  DAF 
1980 CALL &A30C,FN polx,y+2),3p(5)  >BM 


1990 FOR t=1 TO tt/2:NEXT t >VH 
2000 SOUND 1,700,5,12,,,10 >TN 
2010 y=y+2: jeut(x+1,(y+13/2)=1 )IU 
2020 SOUND 1,700,5,12,,,10 >TQ 


2030 IF jeutx+i,(y+3)/2)=0 THEN 205 >KB 
0 ELSE 1230 

2040 REM :::: DESCENTE EN BALLON :: >DM 
2050 jeutx+1,(y+1)/2)=0:tby=(y+3)/2 >JP 
:ton=0 

2060 IF jeu(x+{,tby)=0 THEN ton=tom >P4 
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+1 ELSE 2080 


2070 tby=tby+1:G0T0 2060 TK 
2080 1F ton=i THEN 2180 )QJ 
2090 FOR h=1 TO ton? >MH 
2100 SOUND 1,46+(h#10),3,5 >TD 
2110 CALL &A3OC,FN potx,y),spt11) AR 


2120 IF y>4 AND h>2 THEN CALL &A30C >XP 

FN polx,y-1),sp(12) 

2130 y=y+1:CALL &A30C,FN polx,y),5p >FG 
(5) 

2140 FOR t=1 TO tt:NEXT t >)TF 

2150 IF y>4 AND h>2 THEN CALL &A30C DXT 
FN polx,y-2),sp(11) 

2160 NEXT h JD 

2170 jeulx+i,(y+1)/2)=1:G0T0 2230  >AB 
2180 IF sens=1 THEN spt=4 ELSE spt= >DD 
3 

2190 CALL &A30C,FN polx,y),sp(11) AA 
2200 y=y+2:CALL &A30C,FN polx,y),sp )JB 
(spt) 

2210 FOR t=1 TO tt:NEXT t >TD 
2220 jeutxti,(y+1)/2)=1 >QC 

2230 IF jeulx+i,(y+3)/2)=8 OR jeulx >KH 
+1, (y+3)/2)=9 THEN 3160 ELSE 1230 

2240 REM :::: RAMASSE SACS :::: )YL 
2250 clee=clee+{:1F nbkey>9 THEN 22 »EQ 

80 

2260 PEN O:LOCATE 6,1:PRINT CHR$(14 TX 
3):PEN 1:LOCATE 5,1:PRINT TR$;clee 

2270 SC=SC+1:G0SUB 3060:G0T0 2290  >AQ 
2280 PEN O:LOCATE 5,1:PRINT CHR$#(14 >WC 
3)+CHR$(143):PEN 1:LOCATE 4, 1:PRINT 
TR$;clee:G0TO 2270 

2290 IF clee=nbkey THEN 2300 ELSE R >HZ 
ETURN 

2300 SOUND 1,2056,60, 15 >QU 
2310 CALL &A30C,FN po(ptx,pty),sp(6 >MF 
): jeu(ptxt{,pty/2)=6:RETURN 

2320 REN :::: GAGNE :::: >QF 
2330 FOR h=0 TO 3:au=REMAIN(h):NEXT >DZ 
2340 CALL &A30C,FN potptx,pty),sp(1 EX 
0) 

2350 SOUND 1,2056,60,15:FOR t=1 TO ML 
1000:NEXT t 

2360 INK 15,18,0:FOR h=1 TO 20 )WN 

2370 SOUND 1,h#10,10,14:NEXT h )IL 

2380 TEMHPS-200:clee-0:1INK 15,0:ta=t >HA 
at{:IF ta=41 THEN ta={:ca-0 

2390 ERASE jeu:DIM jeu(21,13):GOSUB >Gi 
450 

2400 GOTO 490 

2410 REM :::: LES GARDIENS 


.. 
ss... 





2420 nxi=ax:ayi=ny 
2430 ON sa GOTO 2440,2540, 2600, 2650 


2440 mx=axti:1F jeu(mxt!,(my+1)/2)- 
1 THEN 3160 

2450 IF jeu(ax+1,(my+1)/2)=0 THEN 2 
500 

2460 IF jeu(axti,(my+1)/2)=4 AND ca 
120 THEN cai=cai-1: jeu(mx+1, (myt{)/ 
2)=0:GOSUB 2480:G0T0 2490 

2470 ax=ax-1 

2480 sa=INT(RND#4)+1:1F sa=1 OR sa- 
3 THEN 2480 ELSE RETURN 

2490 SOUND 2,50,0,15,2,2,31 

2500 CALL &A30C,FN po(axi,ayi),sp(i 
1) 

2510 jeu(axiti,(myi+1)/2)=0 

2520 CALL &A30C,FN po(ax,ay),sp(13) 


2530 jeu(axti, (my+1)/2)=8:RETURN 
2540 ny=ny+2:1F jeu(axti, (my+1)/2)= 
1 THEN 3160 

2550 IF jeul(axti,(my+1)/2)=0 THEN 2 
500 

2560 IF jeu(nx+i,(my+1)/2)=4 AND ca 
120 THEN cal=cai-1: jeu(mxti, (my+1)/ 
2)=0:G0SUB 2580:G0T0 2490 

2570 ny=ny-2 

2580 sa=INT(RND#4)+1:1F sa=2 OR sa= 
4 THEN 2580 ELSE RETURN 

2590 GOTO 2500 

2600 ax=ax-1:1F jeutmxt{, (my+1)/2)= 
1 THEN 3160 

2610 IF jeu(ax+1,(my+1)/2)=0 THEN 2 
500 

2620 IF jeu(ax+i,(ay+1)/2)=4 AND ca 
120 THEN caf=cai-1:jeu(ax+i, (my+1)/ 
2)=0:G0SUB 2640:G0T0 2490 

2630 ax=nx+i 

2640 sm=INT(RND#4)+1:1F 5a=3 OR 5sa= 
1 THEN 2640 ELSE RETURN 

2650 ay=ay-2:1F jeu(axt{, (my+1)/2)= 
1 THEN 3160 

2660 IF jeu(ax+{,(my+1)/2)-0 THEN 2 
500 

2670 IF jeu(ax+ti,(myt1)/2)=4 AND ca 
120 THEN cai=cai-1:jeu(mx+1, (my+1)/ 
2)=0:GOSUB 2690:G0T0 2490 

2680 ny=ny+2 

2690 sa=INT(RND#4)+1:1F 5-4 OR sa= 
2 THEN 2690 ELSE RETURN 
2700 nxi=nx:nyi=ny 


>PG 
>AU 











2710 ON sn GOTO 2720,2830,2900,2960 >AG 


2720 nx=nxti:1F jeu(nx+i, (ny+1)/2)= 
1 THEN 3160 
2730 IF jeutnxt{, (ny+1)/2)=0 THEN 2 >DP 
790 

2740 IF jeu(nx+{,(ny+1)/2)=4 AND ca DYT 
>0 THEN ca=ca-1: jeu(nx+1, (ny+1)/2)= 
0:G0SUB 2770:G0T0 2780 


NL 


2750 IF ch>0 AND jeutnx+1, (ny+1)/2) >VU 
=8 THEN GOSUB 3120 

2760 nx=nx-i >HH 
2770 sn=INT(RND#4)+1:1F sn=1 OR sn= >BF 
3 THEN 2770 ELSE RETURN 

2780 SOUND 2,50,0,15,2,2,31 >UG 
2790 CALL &A30C,FN pol(nx{,ny1),sp(1 >EC 


1) 
2800 jeu(nxit{,(ny1t1}/2)=0 )vh 


2810 CALL &A30C,FN potnx,ny),5pt14) )CE 
2820 jeutnx+i, (ny+1)/2)=9:RETURN )BJ 
2830 ny=nyt2:1F jeu(nx+i,(ny+1)/2)= >NR 
1 THEN 3160 

2840 IF jeu(nxti,(ny+1)/2)=0 THEN 2 DDR 
790 

2850 IF jeu(nxti,(ny+1)/2)=4 AND ca >YX 
>0 THEN ca=ca-1:jeu(nx+1, (ny+1)/2)= 
0:GOSUB 2880:G0T0 2780 

2860 1F ch>0 AND jeu(nx+1, (ny+1)/2) >VW 
=6 THEN GOSUB 3120 

2870 ny=ny-2 )JC 
2880 sn=INT(RND#4)+1:1F sn=2 OR sn= >CD 
4 THEN 2880 ELSE RETURN 

2890 GOTO 2790 )PE 
2900 nx=nx-1:1F jeu(nx+1, (ny+1)/2)= DNN 
1 THEN 3160 

2910 IF jeu(nx+1, (ny+1)/2)=0 THEN 2 >DP 
190 

2920 IF jeu(nx+1,(ny+1)/2)=4 AND ca DYT 
>0 THEN ca=ca-{:jeutnx+{, (ny+i)/2)= 
0:GO0SUB 2950:G0T0 2780 

2930 IF ch>0 AND jeutnx+1, (ny+1)/2) VU 
=8 THEN GOSUB 3120 

2940 nx=nxt1 >HF 
2950 sn=INT(RND#4)+1:1F sn=3 OR sn= >BF 
1 THEN 2950 ELSE RETURN 

2960 ny=ny-2:1F jeu(nx+i, (ny+1)/2)= NY 
1 THEN 3160 

2970 IF jeulnx+{, (ny+1)/2)=0 THEN 2 >DW 
790 

2980 IF jeu(nx+{, (ny+1)/2)=4 AND ca >YL 


>0 THEN ca=ca-1: jeutnx+{, (nyt{)/2)= 


0:GOSUB 3010:G0T0 2780 

2990 IF ch>0 AND jeutnx+1,(ny+1)/2) >VA 
=6 THEN GOSUB 3120 

3000 ny=ny+2 >GG 
3010 sn=INT(RND#4)+1:1F sn=4 OR sn= >BG 
2 THEN 3010 ELSE RETURN 

3020 sa=INT(RND#4)+{:cai=ca:RETURN )EJ 
3030 ’TEL:96. 38.94.24 Del 
3040 REM :::: GESTION COMPTEURS ::: )EV 


3050 sn=INT(RND#4)+{:ca=ca:RETURN  >DG 
3060 PEN 0:1F SC)>99 THEN LOCATE 16, >NU 
1:PRINT CHR$(143)+CHR$(143)+CHR$(14 
3):PEN 1:LOCATE 15,1:PRINT TR$:SC;N 
R$:RETUEN 

3070 IF SC>9 THEN LOCATE 17,1:PRINT >KN 
CHR$(143)+CHR$ (143) :PEN 1:LOCATE 1 
6,1:PRINT TR$:;SC;NR$ : RETURN 

3080 LOCATE 18,1:PRINT CHR$(143):PE >BA 
N 1:LOCATE 17,1:PRINT TR$;SC;NR$:RE 
TURN 

3090 DI:TEMPS=TEMPS-S:PEN 1:LOCATE WT 
10,1:PRINT NR$:;TEMPS:PRINT CHR#(7) 

3100 IF TEMPS<S THEN FIN=1:EI:RETUR >FL 
N 

3110 EI :RETURN >FH 
3120 chx=INT(RND#18)+1:chy=INT(RND# >UP 
11)+1:1F jeu(chx,chy) (30 THEN 3120 
3130 FOR sd=i TO 15:SOUND 1,50-5d,1 >JE 
D ENEXT 

3140 CALL &A30C,FN polchx-1,(chy42) )CR 
-1),sp(9):ch=ch-£{: jeu(chx, chy)=3:RE 
TURN 


3150 REN :::: PERDU :::: >RG 

3160 FOR h=0 TO 3:au=REMAIN(h):NEXT )EL 
h 

3170 FIN=0 >ND 


3180 VIE=VIE-1:BORDER 26:INK 0,26:1 UF 

NK 1,26: INK 2,26 

3190 OUT &BCO0,2:OUT &BD49,49:SOUND >DJ 
4,1500,50, 7,0,0,10:OUT &BC00, 2: OUT 
&BD49, 46 

3200 FOR t=1 TO 4000:NEXT t JUF 
3210 BORDER O:INK 0,0:INK 1,26:INK TB 
2,13:cai=0:ca=0 

3220 GOSUB 3260:ERASE jeu:ERASE ai$ >GQ 
:DIM jeu(21,13):DIM a1$(11) 

3230 FOR t=1 TO 2000:NEXT t >UG 
3240 TEMPS=150:clee=0:ca=0 >VG 
3250 IF VIE=0 THEN 320 ELSE GOSUB 4 >MD 
50:G0T0 490 

3260 PEN 1:LOCATE 1,1:PRINT" ONE P >HA 
LAYER MAN  ":LOCATE 18,1:PRINT VI 





E:RETURN 

3270 FIN=1:RETURN 
3280 "##### TABLEAU 1 ####4 >YF 
3290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >RR 
,0,0,0,0,0,0,0,0,0 

3300 DATA 0,1,0,0,0,512,0,1,2,4,0,0 DAT 
,0,0,0,0,1,0,0,256, 128,64 

3310 DATA 12,23,3,1,3,10,3,19,3,7,2 DMC 
3,2,9,3,10,15 

3320 ‘##### TABLEAU 2 #4##1 >YA 
3330 DATA 0,7,0,0,0,0,0,7,7,0,0,0,3 >ZD 
84,0,0,0,0, 0, 384,384, 0,0 

3340 DATA 256,264,392, 136, 128,128, 1 >FF 
36,136, 136, 248,0,66,66, 70, 66, 2, 2,66 
66,66, 126,0 

3350 DATA 12,3,2,3,5,17,5,10,23,1,1 >CN 
5,5 

3360 "#t### TABLEAU 3 #44: YYE 
3370 DATA 8,0,128,256,0,512,0,256,1 >GK 
28,0,8,64,0,4,2,0,1,0,2,4,0,64 

3380 DATA 0,96,56, 14,3,1,3,14,56,96 DUR 
»0,0,24,112,448,256, 0,256, 448, 112,2 
4,01 

3390 DATA 11,13,2,10,9,9,13,10,23,2 >KF 
,6,17,14,17 

3400 ‘#a### TABLEAU 4 ####4 >XK 
3410 DATA 0,0,0,4,0,0,96,96,96,96,6 DEC 
4,24,24,24,24,16,0,0,0,0,0,0 

3420 DATA 96,48,24,8,6,0,2,2,2,2,2, DRC 
1286, 1286, 128, 128, 128,0, 192,96, 48,24, 

12 

3430 DATA 1,3,4,6,3,17,3,2,23,15,23 DNF 
»18,23,1,11,23 

3440 ‘#at## TABLEAU 5 #4#### >YD 
3450 DATA 0,8,192,0,0,0,32,32,0,0,1 >GL 
29,0, 7,0,0, 128, 320, 128, 0,0, 8,0 

3460 DATA 0,768, 1,1, 144,0,2,260,384 >LC 
16, 16,64,64,0,24,8,0, 4,8, 192, 1,0 

3470 DATA 1,3,5,6,9,3,17,12,13,16,1 DAZ 
5,19,3,2,23,2,16,3,19,15 

3480 "##### TABLEAU 6 ##### >YH 
3490 DATA 0,0,0,0,0,0,0,0,0,0,256,0 DVE 
:0,0,0,0,0,0,0,0,0,0 

3500 DATA 0,18,18,639,0,274,274,102 DKJ 
3,0,146,146,0,145,144,511,0,144,144 

, 504, 16, 144,128 

3510 DATA 19,3, 14,18,3,7,7,10,7,13, > 
7,19,7,19,11,5,15,8,15,11,15,14,15, 
4,23,7,23,10,23, 13,23,1,23,2,16,7,1 

15 

3520 '##### TABLEAU 7 ####3 »YC 
3530 DATA 0,0,1023,1023,1023,0,0,0, >CH 
0,0,0,0,0,0,0,0,0,0,0,0,0,0 


23 


3540 DATA 0,831,0,0,0,0,1023,0,831, HG 
0,0,0,511,0,0,0,0,499,0,511,0,0 

3550 DATA 19,3,2,1,3,19,17,15,23,2, >JG 
10,3,10,17 

3560 '#1##1 TABLEAU B ####4 >YG 
3570 DATA 32,0,0,0,0,0,0,0,0,0,32,1 >XA 
6,0,0,0,0,0,0,0,0,0, 16 

3580 DATA 0,14,17,1,65,63,65,1,17,1 LE 
4,0,0, 448, 32,0,8, 480, 8, 0, 32, 448, 0 

3590 DATA 15,13,2,10,5, 10,21,7,19,2 DKB 


,4,13,16,13 

3600 '#xsux TABLEAU 9 ##### >B 
3610 DATA 0,0,0,0,0,3,6,0,0,0,0,0,1 >XK 
,0,0,384, 256,0, 0,0, 0,0 


3620 DATA 0,16,16,1011,0,0,0, 1023, 2 >PH 
,2,0,0,256,256,511,0,0,0,319, 32, 32, 

0 

3630 DATA 19,3,4,1,3,18,3,1,19,19,1 VB 
9,15,15,2,19,7,1,23 

3640 "#taux TABLEAU 10 saves >TF 
3650 DATA 0,896,0,1,0,0,0,256, 0, 2,4 >ZA 
,0,0,0,256, 0, 2,0,0,0,0,0 

3660 DATA 0,0,0,14,8,8,8,527,0,0,1, >GX 
128,0,0, 224, 32, 33, 32, 480,0, 0, 0 

3670 DATA 19,23,5,1,3,1,15,8,13,13, >CD 
15,19,11,9,23,2,8,15, 17,17 

3680 ‘#atu#x TABLEAU 11 x####3 >YK 
3690 DATA 0,0,967,967,967,960,960,9 >HR 
60,960, 960, 960, 0,0, 399, 399, 399, 15, 1 
5,15,15,15,15 

3700 DATA 1,57,40, 40, 40, 40, 47, 40, 40 DVE 
,40,0,0,112,80, 80, 80, 80, 464, 80, 208, 
80,64 

3710 DATA 12,17,3,10,13,6,23, 14,23, >RC 
14,3,2,6,21,14,21 

3720 "utsu TABLEAU 12 vus )YE 
3730 DATA 0,960,960,960, 960, 1022, 10 >CV 
22, 1022, 1022, 1022,0,0,8,0,128,0,64, 
8,0,0, 32,3 

3740 DATA 0,1,1,1,1,1,1,1,1,1,1,0,5 »2F 
03,0,1,0,0,503, 0,256, 0, 0 

3750 DATA 19,23, 4,2,9,9,15,19,7,11, DUR 
17,3, 23,2,13,9, 13,19 

3760 "asus TABLEAU 13 aus DA 
3770 DATA 1,2,0,0,0,4,4,0,0,0,1,0,0 >ZR 
,0,0,0,128, 128, 0,0, 256,0 

3780 DATA 0,0,1,127,1,1,1,127,1,0,0 >BH 
,0,1,0,504,0,0,0,504,0,0,0 

3790 DATA 19,3,2,9,11,11,11, 17, 23,2 DKN 
,13,3,9,19 

3800 ‘’x#s22% TABLEAU 14 ###3#4 >YD 
3810 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1 >BF 
28,0,0,272,0,0, 256, 256, 0,0 





3820 DATA 4,962, 4,960, 1,1,33,33,33, LE 
33, 33,64, 0,64, 0,0, 305,0,0,0,504,0 

3830 DATA 19,11,6,1,3,1,7,13,5,11,1 FF 
5,1,23,11,23,7,23,2,11,3,3,17 


3840 uusss TABLEAU 15 vvurs >YH 
3850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 RU 
,0,0,0,0,0,0,0,0,0 


3860 DATA 0,7,960,31,0,480,256,886, >CY 
0, 324,324, 0,478, 2, 315,0, 368, 264, 448 
18,264, 264 

3870 DATA 19,23,6,1,5,1,9,10,3,10,1 >GR 
1,14,17,16,7,17,3,2,1,23,19,15 

3880 '##### TABLEAU 16 ####3 >1B 
3890 DATA 0,1,0,0,0,0,0,0,8,8,8,0,5 >VE 
10,0,0,0,0,0,1,0,0,0 

3900 DATA 0,510,0,0,512,63, 32, 32,33 >LK 
:33,33,0,1,0,0,0,487,0,0, 16, 16, 16 

3910 DATA 1,9,5,1,3,19,3,19,15,10,1 DWE 
7,15,17,7,17,1,17,23 

3920 '##### TABLEAU 17 #x##1 >YG 
3930 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >RT 
,0,0,0,0,0,0,0,0,0 

3940 DATA 3,512, 768, 192, 48,12,1,96, >TQ 
24,6,1,0, 384, 96, 24, 0,0, 256, 192, 48,1 

2,3 

3950 DATA 1,3,6,12,3,19,3,14,5,1,9, DUN 
10,17,18,17,12,19,9,23,17,23,2,2,5, 
13,5 

3960 '#xxax TABLEAU 18 ####: >ZA 
3970 DATA 1,2,0,0,512,512,0,0,0,0,41 >ZL 
,0,0,0,0,4,3,0,0,0,256,0 

3980 DATA 0,0,1,1,1,127,1,1,1,0,0,0 >XH 
,0,1,0,0,504,0,0,0,0,0 

3990 DATA 19,5,1,11,15,17,23,2,5,17 DER 
117,5 

4000 '#### TABLEAU 19 ####: )1G 
4010 DATA 0,0,0,0,64,0,0,0,0,2,4,0, >CE 
340, 340,0, 0,0, 0,0, 0, 340, 340 

4020 DATA 0,24,102,65,1,32,65,65,38 >HP 
:24,0,0,1,0,510,0,0,0,511,0,0,0 

4030 DATA 19,3,4,7,7,19,9,10,13,5,1 >VN 
7,19,23,2,19,7,19,5 

4040 "##ttx TABLEAU 20 #44. >YA 
4050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 >DH 
,0,0,272,272,272,272,272,0,0 

4060 DATA 0,511,256,256,272,272,272 DNY 
,272,287,511,0,0,504,8,0,0,0,0,0,8, 
504,0 

4070 DATA 1,23,5,7,3,6,9,12,13,14,1 >AQ 
3,13,15,9,17,2,11,3,4,17 

4080 ‘x BREAK # )YE 
4090 FIN=1:RETURN >NZ 
4100 "POUR LE CAS OU VOUS ETES BLOQ >XH 





UES;POUR NE PAS ATTENDRE LA FIN DU 
TEHPS IMPARTI 


4110 REM :::: PRESENTATION ::::  )ZK 
4120 DEFINT a-z:CALL &BBFF:EVERY 25 )QN 
,2 GOSUB 4390 


4130 LHC$=CHR$(221)+CHR$(222)+CHR$( >QL 
223)+CHR$ (224) +CHR$ (225) +CHR$ (226) 


4140 NODE O:BORDER O:RESTORE 4150:F >NV 
OR h=0 TO 15:READ a:INK h,a:NEXT 


4150 DATA 0,4,6,17,26,15,11,20,9,3, DPY 
12,6,13,24, 8, 18 

4160 LOCATE 1,7:FOR A=1 TO G:PAPER >DW 
CINT(A/2):PEN INT(A/2):PRINT STRING 
#80, 207); :NEXT:PAPER 0 

4170 WINDOW#1, 1,6,23,25:CLS#1:VINDO NF 
U4,7,16,21,25:CLSH1:WINDOUE!, 2, 3,1 
9,23:CLS41:VINDOWE1, 19, 19, 17,25:CLS 
#1:FOR A=1 TO B:PEN O:LOCATE 21-A, 1 
T+A:PRINT CHRS(22)CHRS (1)CHRS(214)S 
TRINGSCA-1, 143) ; :NEXT:PEN 1 

4180 PLOT 250, 80,0:DRAMR 0,70:PLOT MF 
200,150:DRAUR 100,0:FOR A=0 TO 8:PL 

OT 196+A#12,154:DRAUR 12,-6:NEXT:FO 

R A=0 TO 3:PLOT 300+A12-140#(A)1),8 
O:DRAMR 0,60:NEXT:PLOT 300, 130:DRAU 

R 60,-10:DRAUR 20,0:DRAUR 60, 10 

4190 ORIGIN 0,0: INK 4,0:PLOT -10,-1 )YZ 
0,4:a$="ARSENE LAPIN":LOCATE 1, 1:PR 

INT CHR$(22)+CHRS (0) 

4200 TAG:FOR H=1 TO LENCAS):B$=MID$ >MZ 
(A$,H,L):MOVE (H136)-36, 14:PRINT B$ 

: :NEXT:TAGOFF 

4210 ENC=5:EN2=11:Y=300:1=110 )IL 
4220 FOR G=0 TO 14 STEP 2:FOR H=0 T KB 
0 432 STEP 2 

4230 IF TEST(H,2+G)=4 THEN GOSUB 42 >DP 
50 

4240 NEXT H,G:LOCATE 1,25:PRINT NR$ MZ 
:SPACES (18) : INK 4,26:G0T0 4260 

4250 PLOT H+1, Y+(Gu2),ENC:PLOT H+, BA 
Y+2+ (642), EN2:RETURN 

4260 PEN O:LOCATE 1,25:PRINT SPACES GE 
(12) 

4270 FOR H=1 TO S:MOVE 30,H:DRAU 61 DUR 
0,H,15:NEXT:FOR H=6 TO 20:HOVE 30,H 
:DRAW 610,H, 14:NEXT 

4280 FOR H=20 TO 22:MOVE 30,H:DRAU VE 
610,H,11:NEXT:FOR H=1 TO 8:MOVE H,2 
6:DRAN H,374,15:NEXT 

4290 FOR H=8 TO 20:MHOVE H,26:DRAV H XF 
,374,14:NEXT:FOR H=20 TO 22:MOVE H, 





24 


26:DRAW H,374,11:NEXT 
4300 FOR H=616 TO 620:H0VE H,26:DRA )EA 
W H,374,11:NEXT:FOR H=620 TO 632:M0 
VE H,26:DRAW H, 374, 14:NEXT 

4310 FOR H=632 TO 636:MOVE H,26:DRA >EA 
W H,374,15:NEXT:FOR H-394 TO 400:M0 

VE 30,H:DRAY 610, H, 15 :NEXT 
4320 FOR H=382 TO 392:HOVE 30,H:DRA >EU 
W 610,H,14:NEXT:FOR H=378 TO 380:M0 
VE 30,H:DRAV 610,H, 11:NEIT 

4330 X=20:F0R T=1 TO 22:HOVE T,X:DR >CZ 
AN T,20,15:X=X-1:NEXT T 

4340 X=380:FOR T=1 TO 22:MO0VE T,X:D >BE 
RAU T,380:X=X+1:NEXT T 
4350 X=380:FO0R T-618 TO 636:MOVE T, >HB 
380:DRAV 618,X:X=X+1:NEXT T 

4360 X=1:FOR T-618 TO 636:MOVE T,20 >CD 
:DRAW T,X:X=X+1:NEXT T 

4370 PLOT -10,-10,15:TAG:MOVE 32,44 >HG 
:PRINT lac$;:TAGOFF:LOCATE 1,1 

4380 WHILE INKEY$="":VEND:mu=REMHAIN >GP 
(2):CALL &BCA7:G0T0 4450 

4390 DI:1F (SQ(1) AND 7)=0 THEN El: DUF 
RETURN ELSE READ p,d:1F p=-1 THEN R 
ESTORE 4410:G0T0 4390 

4400 SOUND 1,p,d,4:G0T0 4390 >Wy 
4410 DATA 1,41,71,50,1,8,71,50,1,8, >BN 
67,50, 1,8,60,50, 1,8,60,50,1,30,67,5 
0,1,8,71,50,1,8,80,50,1,8,89,50,1,8 
89,50 

4420 DATA 1,8,80,50,1,8,71,50,1,8,7 >BB 
1,50, 1, 12, 80, 33, 1,8,80, 83, 1,12,71,5 
0,1,8,71,50,1,8,67,50,1,8,60,50,1,8 

, 60,50 

4430 DATA 1,8,67,50,1,8,71,50,1,8,8 >BF 
0,50,1,8,89,50,1,8,69,50,1,8,80,50, 
1,8,71,50,1,8,80, 50, 1,8, 89,25, 89,50 
Pi Pi | 
4440 REM :::: JOYSTICK/CLAVIER :::: DDL 


4450 HODE 1:PEN 1:PRINT:PRINT:PRINT )FZ 


4460 PRINT" JOYSTICK .............. >LL 
"JS 
4470 PRINT:PRINT:PRINT UT 


4480 PRINT" CLAVIER .............. >LH 
… "CS 

4490 a$=INKEYS:1F a$="" THEN 4490 Zu 
4500 a$=UPPER$(a$):1F a$="J" THEN 4 DT 
520 

4510 IF a$="C* THEN POKE LA340,1:RE FU 
TURN 


4520 RETURN FE 





LAPIN?2 


5 MENORY &OFFF:CLS 
7 LOCATE 1,10:PRINT * DATAS DE LA LIG 


NE CORRECTS":PEN 2 

10 A=k4000:F=&4450:L=100:WHILE AC=F:F 
OR A=A TO AT15:READ C$:K=VAL("&"+C4) : 
S=S+K+65536#(5+K)32767):1F AC=F THEN 

POKE A,K 

20 NEXT:READ D$:T=VAL("&"+D$): IF TOS 
THEN PRINT CHR$(7); "Erreur ligne";L: 
END ELSE L=L+5 

25 LOCATE 20,10:PRINT 1-5:WEND 

100 DATA 20,01,00,00,00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00, 00, 0021 

105 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00,00,00, 00,00, 0021 

110 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00,00, 0021 

115 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00,00, 0021 

120 DATA 00,00,00,00,00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00,00, 0021 

125 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00, 00, 0021 

130 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00,00, 0021 

135 DATA 00,00, 13,13,02,01,23,23, 00,0 
1,23,23,02,43,23,56,0195 

140 DATA A9,43,23,FC, 76,C3,93,56,FC, C 
3,C3,56,FC,C3,C3, 83, OB9F 

145 DATA A9,03,C3,03,02,FC, 43,83, 83,5 
6,A9,C3,02,56,FC,43,1371 

150 DATA 83,AB,FC,03,03, AB, A9,3C, 17,5 
7,03,3D,2B,01,FF,17,1921 

155 DATA 02,01,23,23,00,00, 13, 13,02, 0 
1,13,13,02,56, A9, 13, 1ACD 

160 DATA 83,B9,FC, 13,83, FC, A9,63,C3,F 
C,A9,C3,C3,56, 43,C3, 24ED 

165 DATA C3,01,C3,C3,03,43, 43,83, FC, 0 
1,03,56,A9,43,83,FC, 2CC4 

170 DATA A9,03,03,FC,57,2B,3C,56,57,1 
7,3E,03, AB, 01, 2B,FF, 3208 

175 DATA 02,00, 13,13,02,01,23,23, A9, 4 
3,23,56, 76,43,23,FC, 35B6 

180 DATA FC,C3,93,56,FC,C3,C3,56, A9, C 
3,C3,83,02,03,C3,C3, 3F73 

185 DATA 83,56, 43,83, 02,56, A9,C3, 02, 2 
9, FC, 43,83,29,FC, A9, 4691 

190 DATA 03,2B,56, A9, 00, 2B, AB, 03, 00, 0 
3,FF,FF,02,01,3F,7F,4B59 

195 DATA 02,01,23,23,00,56, 13, 13,02,B 
9,A9,13,83,FC,FC, 13,5023 

200 DATA 83,FC,A9,63,C3,56, A9, C3, C3, 0 








1,43,C3,C3, 43, C3, C3, 5989 
205 DATA 03,01,43,83,A9,01,C3,56, A9, 4 
3,83, FC, 16, 03,56, FC, 5FEC 
210 DATA 16,00,56, A9, 17,00,03,57, 17,0 
1,FF,FF,03,01, BF, 3F, 648A 
215 DATA 02,00,13,13,02, 01, 23, 23, 23,0 
1,23, 23, 23,01, 23, A9, 6655 
220 DATA 81,01,D6,76,83,43, D6,FC, C3, 4 
3,D6, FC, C3, 43, C3, E9, 7045 
225 DATA C3,01,83,83,83,01,E9, 43, A9, 0 
5, FC, D6, AD, 05, 56, FC, 7843 
230 DATA 07,01,5E,FC,0B, 01, D6,FC, 83, 0 
1,56,56,03,55,FF, 57, 7E61 
235 DATA FF,00,11,33,00,00, 22,00, 22, 1 
1,00, 00, 31, 22, 00, 00, 804C 
240 DATA 31,22,00,00,91, 22, 00,00, 91,2 
2,00,00, 31, 22, 00,00, 8258 
245 DATA 31,22,00,00, 31, 22,00, 00, 31, 2 
2,00,00, 31, 22, 00, 00,834 
250 DATA 31,22,00, 00,31, 22, 00,00, 91, 2 
2,00,00,91, 33, 33, 33, 8627 
255 DATA 33,44,CC,44, CC, 10, CC, 10, CC, 1 
0,30, 10, 30, 00, 00, 00, BAB2 
260 DATA 00, CC, 44, CC, 44, CC, 10, CC, 10,3 
0,10, 30, 10,00, 00, 00, 8FOA 
265 DATA 00,44,CC, 44, CC, 10, CC, 10, CC, 1 
0,30, 10, 30, 00, 00, 00, 9362 
270 DATA 00, CC, 44, CC, 44, CC, 10, CC, 10,3 
0,10, 30, 10,00, 00, 00, 97BA 
275 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, F0, FO, 9994 
280 DATA F0,50,C3,C3,E1, F0, F0, FO, Ei,E 
1,03, C3, E1, E1, D2, C3, A6BO 
285 DATA El, Ei,E1,C3,E1,E1,C3,C3,E1,E 
1,03, C3, E1,E1, C3, C3, B3EE 
290 DATA El, FO,C3,C3,E1, Et, C3,D2, AO,F 
0,F0,F0, 00, 00, 00, 00, BEOC 
295 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 00, BEOC 
300 DATA 00,00, 00, 00, 40, 55, 50, AA, AO, 0 
0,F0,F0,00, 54, 54, AB, C3CB 
305 DATA 00,00, FC, FO,00, 41,F4,F5, 20,D 
2,F4,F5, BA, D2, F4, FO, CE2C 
310 DATA BA,D2, F0,F8, BA, D2, FO, FO, BA, 4 
1,F0, F0, 30, 00, D2, F5, D9DE 
315 DATA 20,00,50,CF, 00,00, 0,60, 8A, 5 
0,60,60,65, BO, 6A, 60, DFD6 
320 DATA 60,90, 64,65, CA, 95, 64, CF, CF,9 
5,64,60,60,95, 6A, 60, EB1A 
325 DATA 60,95,6A, 60,60, 33,64, 60, 60,9 
1,64, 60,60, 95, 6A, 60, EEBO 
330 DATA 60,95, 6A,60,60,95, 6A,65, CA, 9 
5,6A,CF,CF, CO, 6A, 60, F724 


25 





335 DATA 60,55,FF,FF, 00,00, 00,00, 00,F 
F,FF,00, 00, 00, 00, 00, FBDS 

340 DATA 00,00,55,FF,FF, 00, 00,00, 00, 0 
0,00,00,00,FF,FF,FF,0125 

345 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 0 
0,FF,FF,FF, 00, 00, 00, 0422 

350 DATA 00,FF,FF,00, 00, 00, 00, 00, 00, 0 
0,00,FF, AA, 00, 00, 00, 07C9 

355 DATA 00,00, 04,0C, 00, 00, 0C, CC, 88, 0 
4,D8, CC, CC, 04, E4,E4, 0D79 

360 DATA CC, 04,D8,CC, CC, 04, CC, CC, CC, 0 
4,CC,CC, CC, 04, CC, CC, 1725 

365 DATA CC, 00, 4C, CC, 88, 00, 04, CC, 00, 0 
0,00, 8A, 00, 00, 00, BA, 1875 

370 DATA 00,00, 00, 8A, 00, 00, 00, BA, 00, 0 
0,00, 8A, 00,00, 00, BA, 1D9D 

375 DATA 00, 23,00, 00, 13,9, 02,01, 76,B 
9,03, 03, 76, 13,56, A9, 214C 

380 DATA 23,03, FC,FC, 03, 46,56, A9, 89, 6 
C,23,13,9C,60, 56, A9, 27E4 

385 DATA 9C, 29, FC, FC, 16,56,56, A9, A9, F 
C,29,16,FC,FC, BC, 7C, 3120 

390 DATA FC, 56, 78,B4, A9, 16, FO, FO, 29, 0 
1,F4,F8,02, 01, FC, FC, 3A4E 

395 DATA 02,23,01,02, 13,23, 12,21, 13,9 
B, 30, 30,67, 47, 30, B2, 3D7D 

400 DATA 8B,12,12,A3,21, 12,03, A3, 21,1 
2,53, A3, 21,30, A3, 53, 4218 

405 DATA 30,21, 43,83, 12, 43, C3,63, 83,8 
3,43,83, 43,83, 43, 83, 4802 

410 DATA 43,83,C3,C3, 43, 43, C3,C3, 83, 0 
1,03, 03,02, 01, F3,F3, 4ECD 

415 DATA 02, C0, 40,80, 40, 80, 00, 40, 80, 0 
0,00, 40, 80, 00, 00, 00, 528F 

420 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, DD, 5E, 00, 53CA 

425 DATA DD,56,01, DD, 6E, 02, DD, 66, 03, 0 
6,10, CD, 19, BD, F3, C5, 5802 

430 DATA E5,06,04, 14, 77,13, 23, 10,FA,E 
1,CD, 34,43, C1, 10,EF, 6207 

435 DATA FB,C9, 00,00, 00, 7C, C6, 08,67, D 
0,D5,11,50, C0, 19, Di, 692C 

440 DATA C9, 00,00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00, 00, 69F5 

445 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00,00, 69F5 

700 CLS:PRINT " FICHIER LANGAGE MACHI 
NE CORRECT..." 

710 PRINT:PRINT:PRINT 

720 PRINT "UNE TOUCHE POUR LA SAUVEGA 
RDE...." 

730 CALL &BB18 

740 SAVE "ROULAPIN",B, 44000, 4450 
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DEFORM 


10 * ## DEFORMATEUR D'ECRAN ## >LA 
20 ’ (C) 1990 AMSTAR & CPC LB 
30 ’ et Stephane Saint-sartin )LC 
40 ? | )LD 


50 RESTORE 60:FOR i=0 TO 15:READ a: )AL 
INK i,a:NEXT: BORDER 0 

60 DATA 0,1,5,11,23,26,25,24,16,15, 
6,3,8,4,9,18 

70 MEMORY &6FFF:LOAD"Defors.scn":LO 
AD"Defors.rot":CALL &A200 

60 RESTORE 90:FOR h=&8000 TO 88056: >MX 
READ a$:POKE h,VAL("&"+a$):NEXT 

90 DATA F5,CD,21,80,11,0,C0,19,6,8, DDE 
C5,E5,D1,23,1,4F,0,1A, ED, B0, 12, 1,B0 
 139,C1,10,EE,F1, 3D,20,E0,C9,DD,6E 
0, DD, 23, DD, 23,2D,26,0,29,29,29,29, 
E5,D1,29,29,19,C9,F5,CD,21, 80,11,4 
F,C0,19,6,8,C5,E5,D1,2B,1,4F,0,1A,E 
D,B8,12,1,50,8,9,C1,10,EE,F1,3D,20, 
E0, C9 

100 RESTORE 110:FOR 1=&A43E TO &A4B 
C:READ A$:POKE 1, VAL("&"+A$):NEXT 
110 DATA FE, 4,C0, CD, 96, A4,F3,DD,66, 
4,DD,6E,6, 22, 6A, A6,DD,66,0,DD,6E,2, 
22,6C, A6, 7C,32,6E, A6,21,6A,A6,22,6 


>LH 


)0D 


Stéphane ST MARTIN 


Valable pour CPC 
464 - 664-6128 


Le programme qui suit vous permettra de créer 
des déformations latérales de l’écran. 








inq zones de l’écran peuvent recevoir des paramètres variant de 
—15 à 15 par l’intermédiaire d’une RSX. Il est même possible, en 
utilisant cette nouvelle instruction, de créer des animations (vagues, 
ondulations...) le mode d’emploi est inclus dans le programme. 
Il faut taper et sauver le programme DEFORM.DAT puis le lancer 
par RUN. Deux programmes seront alors sauvés 
automatiquement DEFORM.ROT et DEFORM.SCN. 
Ensuite, tapez et sauvez le programme DEFORM.BAS 
\.. puis lancez-le par RUN pour commencer à 


travailler. 





8,46,21,0,FF,22,6F, A6, CD, 19,BD,FB,C 
3,87,A4,C3,96,A4,FE,1,C0,DD, 7E,0,F 
5,9E,C9,32,EB, BD, F1,CD,E, BC, 3E,C3,3 
2,EB,BD,C9,21,C2,A4,1,0,81,11,9C, A4 
,CD 

120 DATA 19,BD,C3,E0,BC, 21, C2, A4,C3 
,E6,BC, 24,68, A6, 7E,FE,FF,28,7,23,22 
,68,A6,C3,B0, A4,21,6A, A6,18,EF,F6,F 
C,EE,FC,CB,FF,D9,4F,ED, 49, D9,C9,0 
130 RESTORE 140:FO0R 1=89500 TO 8954 
D:READ A$:POKE 1, VAL("&"+A$):NEXT 
140 DATA 21,4C,95,1,0,80,11,25,95,3 
E,51,32,4B,95,CD, 19,BD,C3,E0, BC, C9, 
21,4C,95, 1,0,80,11,25,95, CD, 19, BD, C 
3,E6,BC,C9,F3,F5,C5,D5,E5, 34, 4B,95, 
3C,3C,FE, 59,20, 2,3E, 4D, 32, 4B,95,21, 
0,10,6,7F,ED,61,ED, 79,ED,69, ED, 79,E 
1,D1,C1,F1,FB,C9,4F,0,0 

150 ! 

160 ’ MENU PRINCIPAL 

170 ? 

180 MODE O:CALL &7000:CALL &A43E, 0, 
0,0,1:CALL &A471,1 

190 LOCATE 1,24:PEN 3:PRINT'Faites 
votre choix:" 

200 IF INKEY(64)=0 THEN GOTO 250 EL 
SE IF INKEY(65)=0 THEN GOTO 490 ELS 
E IF INKEY(57)=0 THEN GOTO 580 

210 CALL &8000,24:CALL &BD19:G0T0 2 DCT 


V 


EC 


26 

















00 

220 ? 

230 * DEFORMATIONS MULTIPLES 

240 ! 

250 DATA LES DEFORMATIONS MULTIPLES 
(C) 1990 PAR AMSTAR & CPC, ,Un reve 
irrealisable sur AMSTRAD CPC !?7,"E 

h,non saintenant c'est POSSIBLE ! C 

omsent !?",Avec ce petit programme 

que vous essayez en ce moment sene. 


260 DATA Ainsi vous pourrez utilise 
r les routines que contient le prog 
ramse DEFORM.ROT, "avec le prograase 
qui suit:", 
2170 CALL &A4GE:MODE 2:INK 1,0:RESTO 
RE 250:FOR 1=1 TO 9:READ A$:LOCATE 
1,1:PRINT A$:NEXT 
280 PRINT "10 LOAD'";CHR$(34) ;"DEFOR 
M.ROT" ;CHR$ (34); :PRINT"15 INK 0,0: 
NK 1,26:BORDER 15:MODE 2:CALL &A200 
"INSTALLATION DES ROUTINES":PRINT 
*20 üDEFORMON ’ Deforsations operat 
ionnelles":PRINT"30 üDEFOR, A,B,C, D, 
E' 
290 PRINT"40 ' L'ecran est divise e 
n 5 (E,D,C,B,A de haut en bas)":PRI 
NT"50 ' ces valeurs (A,B,C,D,E) peu 
vent varier de -15 a 15":PRINT"60 ù 


RE 
RF 
>RG 
>NU 


>KX 


>RC 


>YU 





HODEOFF ‘ Deforsations interrospues 
L] 
300 LOCATE 1,24:PRINT" Appuyez sur E )QE 
SPACE pour voir la DEMO !":CALL 495 
00:FD=1 
310 IF INKEY(47)=0 THEN GOTO 330  »YQ 
320 CALL &8035,24:CALL &BD19:G0T0 3 >CF 
10 
330 LOCATE 1,24:PRINT STRING$(80,"  )ZU 
"):LOCATE 15,24:PRINT"Appuyez sur E 
SPACE ou COPY ou RETURN ou ENTER":L 
OCATE 1,18:PRINT"ESPACE --) Changer 

la deforsation":PRINT"COPY --» Me 
nu principal":PRINT"RETURN --» Reti 
rer ou mettre les couleurs de fond" 
340 PRINT "ENTER --> Changer le bor )BX 
der":CALL &9515:INK 1,26 :üDEFORMON: 
üDEFOR, 0, 1,0,2,2 
350 IF INKEY(9)=0 THEN GOTO 370 ELS )PC 
E IF INKEY(47)=0 THEN GOSUB 420 ELS 
E IF INKEY(18)=0 THEN GOSUB 380 ELS 
E IF INKEY(6)=0 THEN GOSUB 400 
360 CALL &8000,24:CALL &BD19:GO0T0 3 >CF 
50 
370 CALL 849515 :üHODEOFF: INK 1,1:B0R >TQ 
DER 0:GO0T0 180 
380 IF FD=-0 THEN FD=1:CALL &9500:IN >PA 
K 1,0:RETURN 

390 IF FD=1 THEN FD-0:CALL 89515:IN >QH 
K 1,26:RETURN 

400 IF B0>25 OR B0=-26 THEN B0-0:BOR DRV 
DER BO:RETURN 

410 B0=B0+1:BORDER BO:RETURN NT 
420 READ a,b,c,d,e >HD 
430 IF a=255 AND b=255 AND c=255 AN DXR 
D d=255 AND e=255 THEN RESTORE 450: 
GOTO 420 

440 GDEFOR, a, b, c, d,e:RETURN >YH 
450 DATA 2,0,2,0,2,-2,0,2,0,-2,0,1, DKK 
0,2,2,0,0,-2,0,0,0,0,0,5,-5,5,-5,6, 
-5,0,-3,0,5,3,-5,0,-5,0,-5,0,-5,-4, 
-3,-2,-1,5,4,3,2,1,255,255,255,255, 

255 


460 ? )TA 
470 ' CHOIX D'UNE DEFORMATION )TB 
480 ? TC 


490 CALL &A4GE:MODE O:CALL &7000:F0 )YX 
R i=15 TO 8 STEP -{:LOCATE 1,1:PRIN 

T STRINGS(19," "):CALL &BD19:NEXT:C 

ALL WA43E,0,1,1,1:CALL &A471,1 

500 ca=0:LOCATE 1,7:PRINT"Rentrez | DKK 
es valeurs (comprises entre -15 et 
15):":PAPER 1:FOR i=10 TO 18 STEP 2 








:LOCATE 2,1:CALL &BBOC:PRINT CHR$(6 
5tca):CALL &BB9C:ca=ca+1:NEXT : PAPER 

0 

510 LOCATE 4,10:PEN 2: INPUT") ",A1: DRQ 
LOCATE 4,12: INPUT") ",B{:LOCATE 4,1 
&:INPUT"»> ",C1:LOCATE 4,16: INPUT") 
*,D1:LOCATE 4,18: INPUT") ",Ei:IF A1 

>15 OR AÏ<-15 OR B1215 OR B1<-15 OR 
C115 OR Ci<-15 OR D115 OR Di<-15 

OR E1)15 OR Ei<-15 THEN GOTD 490 
520 LOCATE 1,24:PRINT "Ok ! Appuyez DYR 
sur ESPACE !" 
530 IF INKEY(47)=0 THEN GOTO 90 >YL 
540 CALL &8000,24:CALL &BD19:G0T0 5 DCF 
30 


550 ! TA 
560 ? TEST D'UNE DEFORHATION TB 
570 )TC 


580 CALL &A4GE:MHODE O:CALL &7000:F0 >YX 
R i=15 TO 8 STEP -1:LOCATE 1{,i:PRIN 

T STRING$(19," "):CALL &BD19:NEXT:C 

ALL LA43E,0,1,1,1:CALL &A471,1 

590 LOCATE 1,10:PEN 3:PRINT"Pour re >CU 
faire cette deformation :":PRINT:PR 
INT"10 LOAD";CHR$ (34) ; "DEFORM. ROT”; 
CHR$(34):PRINT"20 CALL &A200:üDEFOR 
HON":PRINT"30 üDEFOR, "A1", "B{","Ci" 

, "D1", "EL:PRINT"40 CALL &BB18:üMODE 
OFF" 

600 LOCATE 1,24:PRINT"APPUYEZ SUR E >HB 
SPACE !":üDEFOR, A1,B1,C1,D1,E1:üDEF 
ORHON 

610 IF INKEY(47)=0 THEN üMODEOFF:G0 >JV 
TO 90 

620 CALL &8035,24:CALL &BD19:G0T0 6 >DD 
10 


DEFORM-DAT 


10 ’ DATAS des prograsses DEFORM.RO )LA 
T et DEFORM.SCN 


20 ” (c) 1990 AMSTAR & CPC LB 
30 * et STEPHANE SAINT-MARTIN )LC 
40 LD 


50 RESTORE 70:FOR h=&A200 TO &A2DC: >MU 
READ a$:POKE h,VAL("&"+a$) :NEXT 

60 SAVE" !DEFORH.ROT",B,&A200,&DC DAV 
10 DATA 21,A,A2,1,E,A2,CD,D1,BC,C9 AU 
80 DATA FC, AG,E, A2, 19, A2,C3,2E,A2,C >CZ 
3 


27 





90 DATA A9,A2,C3,95, A2,44,45,46,4F, CD 
52 

100 DATA 4D,4F,CE, 44,45, 46, 4F,D2, 4D )ED 
,4F 

110 DATA 44,45,4F,46,C6,0,21,47,A2, DCT 
11 

120 DATA 5B,A2,1,0,81,CD,D7,BC,21,5 >CG 
Î 

130 DATA A2,11,61,A2,1,0,81,CD,E0,B BF 

C 

140 DATA C9,0,0,0,0,0,0,0,0,0 DVF 
150 DATA 0,0,0,0,0,0,0,0,0,0 >UB 
160 DATA 0,AF,32,60, A2,C9,0,F3,34,6 >BC 
0 

170 DATA A2,3C,32,60,A2,FE, 1,20,4,3 >BA 
E 

180 DATA 2E,18,1A,FE,2,20,4,3E,2D,1 DCE 

8 

190 DATA 12,FE, 3,20, 4,3E, 2E, 18,A,FE >BP 
200 DATA 4,20,4,3E,2D,18,2,3E,2D,1 )Z4 
210 DATA 2,BC,ED, 49,4, ED, 79,FB,C9,F )CX 
3 

220 DATA 3E,2E, CD, 8B, A2,21,47,A2,CD DEM 
DD 

, 

230 DATA BC,21,51,A2,CD,E6,BC,FB,C9 >EC 
FE 

, 

240 DATA 5,C0, DD, 7E,0,C6,2E,32,6E, À >CP 
2 

250 DATA DD, 7E,2,C6,2E, 32,76, A2,DD, >DJ 
TE 

260 DATA 4,C6,2E, 32, 7E, A2, DD, 7E,6,C >CE 
6 

270 DATA 2E,32,86, A2, DD, 7E,8,C6,2E, >DA 
32 

280 DATA 8A,A2,C9,E3,F3, 83,33, 33,33 >DV 
89 

290 DATA © >GH 
300 RESTORE 320:FO0R h=47000 TO &7BD >PG 
D:READ af$:POKE h, VAL("&"+a$) :NEXT 

310 SAVE"!DEFORM. SCN",B,47000,&BDD >CQ 
320 DATA 21,0,C0,1,50,C8,DD,21,61,7 >BL 
0 

330 DATA DD,56,0,DD,23,E5,FD,E1,DD, >DR 
TE 

340 DATA 0,DD, 23, BA, 28, 7,77,23,D,28 DBJ 

350 DATA 1B,18,F1,DD, 7E,0,DD,23,B7, DJ 

28 

360 DATA 31,5F,DD, 7E,0,DD,23, 77,23, )CJ 

D 

370 DATA CC, 49,70, 1D,20,F7,18,D8,FD DEN 
,E5 

380 DATA Ei,CD,26,BC,ES,FD,E1,5,E,5 )CJ 

0 


300 DATA 20, CA,C9,F5,FD,E5,E1, CD, 26 DEX 
BC 

, 

400 DATA ES, FD,E1,F1,5,E,50,C0,F1,C CH 
9 

410 DATA 72,23,D,28,D8,18,B1,3,3,9 DAC 
420 DATA 0,1,3,34,0,8C,3,13,0,1 DE 
430 DATA 13, 22,3,38,0,55,FE, 3C,3,11 DAV 
440 DATA 0,1,33,13,A2,3,38,0,15,FE ZE 


450 DATA FF,28,3,F,0,1,33,B3,73,A2 AU 
460 DATA 3,38,0,15,7F,BF,FF,28,3,E DAD 
470 DATA 0,33,B3,73,73,0,0,3,7,C0  DYJ 
480 DATA 0,0, 3,8,C0, 0, 3,8,C0,0 Duz 
490 DATA 0,3,6,C0,0,0,3,7,C0,0 ux 
500 DATA 0,3,7,C0,3,4,0,7F,7F,BF  DYC 
510 DATA FF,3,D,0,89,3,4,F3,0,0  DXR 
520 DATA 3,7,48,8,0,3,8,48,0,3 WP 
530 DATA 8,48,0,40,3,6,48,8,0,3 DUB 
540 DATA 7,48,8,0,3,7,48,8,3,3 DUZ 
550 DATA 0,3,4,3F,FE,3,C,0,F1,79  DYK 
560 DATA 28,3,4,0,3,7,C,8,0,3 VU 
570 DATA 8,C,0,3,8,C,0,4,3,6 Us 
580 DATA C,8,0,3,7,C,8,0, 3,7 DUP 
590 DATA C,8,3,5,0,14,3E,7A,3,B  DXG 
600 DATA 0,50,3C,3C, FC, 3,4,0,3,8  DYA 
610 DATA 8C,0,3,8,8C,0,3,8,8C,0  DXT 
620 DATA 3,8,8C, 0,3,8,8C,0,3,8 DUZ 
630 DATA 8C,3,5,0,FC,3C,3C,A0,3,A  DZL 
640 DATA 0,50,78,BC,FC,3,A,0,CC,CC DAH 
650 DATA 3,13,0,CC,CC,88,0,0,44,CC DAF 
660 DATA CC, 3,7,0,CC,CC,0,CC,CC,3  DAF 
670 DATA 4,0,CC,CC,3,5,0,FC,7C,B4  )ZH 
680 DATA A0,3,A,0,B4,78,F4,FC,AB,3 DAK 
690 DATA 9,0,98,98,3,13,0,98,98,3  DYA 
700 DATA 4,0,98,98,3,7,0,98,98,0  >XG 
710 DATA 98,98, 3,4,0,98,98,3,4,0  DXH 


720 DATA 54,FC, F8, B4, 78,3, A,0, 84,38 >BH 
730 DATA F4,FC, AB,3,3,0,30,30,3,4 ZM 
740 DATA 0,30,30,0,3,8,30,0,3,8 DUC 
750 DATA 30,0, 30, 30,3,4,0,30,30,0 DB 
760 DATA 30,30,3,4,0,30,30,0,30,30 )ZL 
770 DATA 0,30,30,0,30,30,3,4,0,54  DYK 
780 DATA FC,F8, 34, 78,3, À,0,B4,AB,F4 BL 
790 DATA FC,A8,3,3,0,70,70,3,4,0  DYV 
800 DATA 70,70,0,3,8,70,0,3,8,70  >XY 
810 DATA 0,70, 70,3,4,0,70,70,0,70  DYV 
820 DATA 70,3,4,0,70,70,0,70,70,0 YU 
830 DATA 70,70,0,70,70,3,4,0,54,FC )ZZ 
840 DATA F8,54, 78,3,9,0,50,3C, A8,FC >ED 


850 DATA BC,3,4,0,F0,F0,3,4,0,F0  DYT 
860 DATA F0,0,3,8,F0,0,3,8,F0,0  DXJ 
870 DATA F0,F0,3,4,0,F0,F0,0,3,7  DYG 


880 DATA FO, A0, 0, F0, FO,0,F0,FO,0,F0 >BX 
890 DATA F0,3,5,0,7C,FC,54,3C,A0,3 AQ 
900 DATA 8,0,50,3C,FC, BC, 28,3,4,0  >2G 











910 DATA 3F,3F,3,4,0,3F,3F,0,3,8 
920 DATA 3F,0,3,8,3F,0,3F,3F, 3,4 
930 DATA 0,3F,3F,0,3,7,3F,2A,0,3F DZ] 
940 DATA 3F,0,3F,3F,0,3F,3F,3,5,0  ZP 
950 DATA 14, 7C, FC, 3C, A0,3,8,0, 50, 7C >BZ 


)YQ 
)YR 


960 DATA FC, 2D,82,3,4,0,7F,7F,3,4 ZE 
970 DATA 0,7F,7F,0,3,3,7F,3,6,0 KB 
980 DATA 3,3,7F,3,6,0,7F,7F,3,4  DXK 
990 DATA 0,7F,7F,0,3,6,7F,2A,0,0  DYU 


1000 DATA 7F, 7F,0,7F,7F,0,7F,7F,3,5 BP 
1010 DATA 0,41, 1E, FC, BC, 40,3,6,0, 14 DAB 
1020 DATA 7C,FC,87,A,3,4,0,BF,BF,3 DAT 
1030 DATA 4,0,BF,BF,0,3,3,BF,3,6  DYE 
1040 DATA 0,3,3,BF,3,6,0,BF,BF,AA ZT 
1050 DATA 0,0,15,BF,BF,0,3,7,BF,0 )ZH 
1060 DATA 0,BF,BF,0,BF,BF,0,BF,BF,3 >CD 
1070 DATA 5,0,5,4B,FC, BC, 28,3,8,0 ZE 
1080 DATA 14,FC,FC, 7,4B,3,4,0,3,8 DZ) 
1090 DATA FF,0,3,8,FF,0,3,3,FF,3 DA 
1100 DATA 6,0,3,8,FF,0,FF,FF,0,0  DYN 
1110 DATA 55,FF,FF,AA,0,FF,FF,0,FF, DEL 
FF 

1120 DATA 0,FF,FF,3,5,0,87,B,FC,FC DAT 
1130 DATA 28,3,8,0,14,FC, FC, A9,C3, 3 >BU 


1140 DATA 4,0,3,7,FD,A8,0,3,8,FD  DYB 
1150 DATA 0,3,3,FD,3,6,0,55,3,6  DXL 
1160 DATA FD, A8,0,FD,FD,3,3,0,3,3  >ZP 


1170 DATA FD,0,FD,FD,0,FD, FD,0,FD,F >DU 
D 

1180 DATA 3,5,0,C3,56, FC, FC, 28, 3,8 
1190 DATA 0,14,3,3,FC, 43,82, 3,3,0 
1200 DATA 3,7,7C, 28,0,3,8, 7C, 0,3 
1210 DATA 3,7C,3,6,0,54,3,6,7C,28 DR 
1220 DATA 0,7C,7C,3,3,0,54,7C,7C,0 DZC 
1230 DATA TC, 7C,0, 7C, 7C,0, TC, 7C, 3, 4 DBZ 
1240 DATA 0,41,83,3,3,FC,28,3,9,0  DYH 
1250 DATA BC, FC, FC, A9,2,3,3,0,3,7 )ZP 
1260 DATA B4,0,0,3,8,B4,0,3,3,B4  DXH 
1270 DATA 3,7,0,3,6,B4,0,0,B4,B4  DYC 
1280 DATA 3,4,0,B4,B4,0,B4,B4,0,B4 >2G 
1290 DATA B4,0,B4,B4,3,4,0,1,56,FC AJ 
1300 DATA FC, 7C,3,4,0,BC,3,3,FC,2  D2ZN 
1310 DATA 3,30,0,1,3,3,FC,7C,3,A DV 
1320 DATA 0,F8,3,3,FC,A8,3,3C,0,54 DAN 
1330 DATA 3,3,FC,F4,3,4,0,78,7C,FC DAG 
1340 DATA FC, 3,3E,0,FC, FC, BC, B4, 3, À DBY 
1350 DATA 0,50, FC, FC, A9,3,3E,0,56,F )CR 
c 

1360 DATA FC, A0,3,B,0,56, FC, 82, 3, 3€ DBJ 


AB 
YF 
)XE 


1370 DATA 0,41,FC,A9,3,C,0,1,43,3 ZE 
1380 DATA 40,0,83,2,3,AC,0,A,F,A  DYJ 
1390 DATA 4,3,3,0,4,5,F,5,F,5 >VP 
1400 DATA F,0,0,5,F,3,3,5,F,5 NT 
1410 DATA F,5,F,5,F,3,3,0, 4,0 >VG 


28 








1420 DATA 0,5,F,5,F,5,F,3,6,0 NT 
1430 DATA 5,F,0,0,5,F,5,F,0,0 >VP 
1440 DATA 3,3,5,F,5,F,5,F,5,F VB 
1450 DATA 5,F,3,B,0,41,0,82,82,41  DYH 
1460 DATA 0,0,41,82,3,6,41,0,0,3  DXE 
1470 DATA 3,41,C3,41,0,0,82,3,4,41 DZT 
1480 DATA 0,0,41,41,0,0,3,6,41,3  DXB 
1490 DATA 6,0,41,3,3,0,41,0,0,82  DXH 
1500 DATA 0,0,41,C3,3,4,41,0,82,0  DYX 
1510 DATA 82,41,41,3,B,0,54,0,AB,0 D2ZG 
1520 DATA 54,3,3,0,48,3,6,54,0,0  DXE 
1530 DATA 3,5,54,FC,0,A8,3,4,54,3  DYH 
1540 DATA 3,0,48,0,0,54,0,3,3,54  DXA 
1550 DATA 3,7,0,54,FC,0,0,54,FC,0  >ZK 
1560 DATA A8,0,0,3,6,54,0,A8,0,A8  DYB 
1570 DATA 54,54,3,B,0,50,0,A0,0,50 >ZD 


1580 DATA 3,3,0, A0, 50, F0, 50,F0,50,5 >BR 
0 

1590 DATA 0,0,50, F0,50,50,0,50,0, A0 DAE 
1600 DATA 50, FO, 50, A0, 3, 3,0, A0, A0, 0 DAD 
1610 DATA 50,0,50,F0,50,3,8,0,50,3 ZM 
1620 DATA 3,0,50,0,A0,50,F0,3,3,50 24 
1630 DATA F0, 50, A0,0, A0, 0, A0, 50,50, BR 
3 

1640 DATA B,0, 10,0, 20, 20, 10,3, 3,0 
1650 DATA 20,0, 10,0, 3,3, 10,0,0,3 

1660 DATA 4,10,0, 10,0, 20,3,4, 10,0 
1670 DATA 0,10, 10,0,0,3, 3, 10,0, 10 
1680 DATA 10,3,3,0,20,3,3,0,10,0  DXR 
1690 DATA 20,0,10,0,20,0,0,3,6,10  DYU 
1700 DATA 0,20,0,20,10,10,3,C,0,88 )ZZ 
1710 DATA CC, 88,88,0,0,44,CC,44,CC, DB 
M 

1720 DATA CC, 44,CC,0,0,3,5,44,CC,0 DAV 
1730 DATA 88,3,4,44,0,0,44,88,88,0 )ZG 
1740 DATA 44,CC, 44,0, 44, CC, 3,3,0,88 DAV 
1750 DATA 0,0, 44, CC, 0,88, 44,CC,0,88 DAY 
1760 DATA 0,0,3,6,44,0,88,44,CC,44 >2C 
1770 DATA 44,3,FF,0,3,FF,0,3,FF,0  )2ZG 
1780 DATA 3,FF,0,3,FF,0,3,FF,0,3  DYY 
1790 DATA FB,0,40,C0, 3, 4C, 0, 44,8C,C >BV 
0 

1800 DATA 40, 80,3, 4A,0,44,48,C0,80, BG 
0 

1810 DATA CO, 3, 49,0, 44, 48, 3, 4, 0, 40 
1820 DATA 80,3,48,0,C0,3,6,0,40,3 DYM 
1830 DATA 48,0,80,3,6,0,40,3,47,0 DYB 
1840 DATA 40, 80, 40, 70, F0, 3,3,0, 40,3 >AB 


>YG 
>XK 
YU 
>YN 


)ZA 


1850 DATA 7,0,3F,3,3F,0,C0,0,C4,30 ZX 
1860 DATA 70,80, 3, 3,0,80,3,5,0,55  DYE 
1870 DATA FF,3,4,0,F,0,F,A,F,A IR 
1880 DATA F,A,F,3,3,A,5,0,F,A UR 
1890 DATA F,A,F,A,F,A,F,A,0,0 ut 
1900 DATA 3,5,4,0,F,A,F,A,F,A DUZ 


1910 DATA A,0,F,A,F, A, 3,E,0,4 DE 
1920 DATA 80,0,84,CC, 30, 8C,80,0,0,8 >BH 
0 

1930 DATA 3,5,0,55,FF,3, 4,0,3,3 

1940 DATA 82,0,82,0,3, 4,82,C3,3,3 

1950 DATA 82,41,0,41,0,3,5,82,3,3 
1960 DATA 0,C3,3,4,82,0,41,0,41,0  DYH 

1970 DATA 3,3,82,0,82,0,82,3,F,0  DXT 
1980 DATA 84,80, 40,84, 48, 4C,CO, 40,0 >CH 
0 

, 

1990 DATA 80,3,6,0,FC,3,4,0, AB, AB 

2000 DATA FC, 0,FC, 0, 3,8, A8,54, 0,54 

2010 DATA 0,3,4,A8,FC, AB, 0,0, 3,5 

2020 DATA A8,0,54,0,54, 0, 3,3, A8, 0 

2030 DATA FC,0,FC, AB, 3,E,0,84, 0, 40 

2040 DATA CO, 0,C0, 0, C4, 0, 0,80, 3,6 

2050 DATA 0,F0,3,4,0, 3,3, A0,0, AO 

2060 DATA 0, A0, A0, FO, 0, AO, AO, FO, AO, 

50 

2070 DATA 0,50,0, 3,4, A0, 0, A0, 0,0 

2080 DATA 3,5, A0,0,50, 0, 50,0, F0, AO 

2090 DATA 40,0, A0, 0,0, A0, 3,D,0, 40 

2100 DATA 4C,3,3,0,8C,0, C0, 18, 0,0 

2110 DATA 40,3,5,0, 10, 30, 30, 3, 3,0 

2120 DATA 3,3,20,0,20,0,3,8, 20, 10 

2130 DATA 0,10,0,3,4, 20, 0, 20,0, 0 

2140 DATA 3,5,20,0,10,0,10,0,20,0  DYK 

2150 DATA 20,0,20,0,0,20,3,D,0,40  >YG 

2160 DATA 4C, 0,10, F0, CO, 40, 80,3, 3,0 DAZ 

2170 DATA 40,3,5,0,CC,CC,88,3,3,0 DZ) 

2180 DATA CC, 0,CC, 88, 88,0, CC, 3, 7,B8 BP 

2190 DATA 44,0, CC, BB, CC, 3,3,88,CC,8 >CC 

8 

2200 DATA 0,0,88,88, CC, 88, CC,88, 44, DBX 

0 

2210 DATA CC, 88,88, 0, CC, 88, CC, 88, CC )EZ 
88 

’ 

2220 DATA 3,D,0,40,8C,0,30,C8,3,3  DYR 
2230 DATA 0,50,0,0,40,3,44,0,4,C8  DYA 
2240 DATA 0,8C, C0,0, 40,80, 30,80,0,4 >BV 
0 
2250 DATA 80,3,43,0,4,48,0,C0,0,70 ZT 
2260 DATA A0,80,8C,0,0, 40, 80, 3, 43,0 >AQ 
2270 DATA 44,48,0,0,40,98,8,0,80,0 >ZR 
2280 DATA 0,40,80,3,43,0,44,C0,0,0 ZI 
2290 DATA 40, 4C,80,8,3,3,0,4,80,3  DYU 
2300 DATA 43,0,44,C0,8,0,80,C0,0,24 DAL 
2310 DATA 40,80,0,4,C0,3,43,0,4,C0 DZY 
2320 DATA 8,40,80,0,4,B0,80,C8,0,4 )ZN 
2330 DATA CO0,3,43,0,4,C0,88,0,4,98 32Y 
2340 DATA 8,20,80,64,0, 44, 48, 3, 43,0 DAX 
2350 DATA 40, CO, 88,0, 4C, 70, 8,8, 18, 2 BB 
4 
2360 DATA 0,44,48,3,43,0,40,C0,4C,0 >AU 


)XR 
DYY 
)YB 


)2Z 
)AJ 
NT 
)YX 
)AZ 
>) 
)XQ 
>CV 


JXT 
)2J 
)YJ 
)YG 
YU 
DYU 
)XC 








2370 DATA 18,44, 40, 4,70,24,0,0, 48,3 DAJ 
2380 DATA 43,0,40,C0,C4,0,18, 44,10, CP 
98 

2300 DATA B0,8C, 10,0,48,3,43,0,40,C >BU 
0 

2400 DATA 84,88, 4,8,58,F0,B0,CB, 44, >BC 
0 

2410 DATA 60,3,43,0,40,C0,40,8,0,8 >ZP 
2420 DATA 70,64, 48, C0, A4,0,C8,3,43, DBF 
0 

2430 DATA 40,3,3,80,0,0,B0,C8,80,0 )ZE 
2440 DATA 6C, 0,48, 3, 43,0, 40, 80,0, 40 DAF 
2450 DATA 0,0,24,80,0,20,C,10,8,3  DYA 
2460 DATA 44,0,C0, 0,0, 80, 0, CB, 0, D8 
2470 DATA 8,CC, 44,8,3, 47,0, 40, 0,80 
2480 DATA 10,4,8,C8, 4,80, 3, 47,0, 40 
2490 DATA 0,10, 4, 4,88, 80, 4, 80,3, 4 
2500 DATA 0,3F,3F, 24,3, 40,0,40,0,4 >ZR 
2510 DATA 4C,44,80,0, 40, 80,3, 3,0,55 AF 


2520 DATA A4,55,FF,3,3,0,F,3,3,A  DYK 
2530 DATA F,A,F,3,3,A,0,0,F,0 VU 
2540 DATA 0,3,3,A,F,A,F,A,0,0 >VP 
2550 DATA F,0,F,A,F,A,F,A,F,3 A 
2560 DATA 3,4,5,0,F,A,F,A,F,A DUC 
2570 DATA F,A,3,D,0,40,0,40,80,4  DYD 


2580 DATA CB, 40, 80,0, 40, 80,3,3,0,55 AN 
2590 DATA 0,FF,AA,3,3,0,3,6,82,41  DZN 
2600 DATA 0,82,82,0,0,82,82,41,0,3 32D 
2610 DATA 5,82,3,3,0,3,3,82,0,82  DXU 
2620 DATA 0,3,4,82,C3,3,3,82,41,0  DYN 
2630 DATA 41,0,3,4,82,3,F,0,C0,C4  DYW 
2640 DATA 0,80,3,3,0,4,80,3,4,0 MD 
2650 DATA 54,FC,3,4,0,A8,0,FC,3,3  >ZH 
2660 DATA A8,54,0,54,3,3,0,A8,AB,0 >2Q 
2670 DATA 0,3,4,AB,FC,3,3,0,AB,AB  DZK 
2680 DATA FC,0,FC,0,3,8,A8,54,0,54 DAZ 
2690 DATA 0,3,4,A8,3,E,0,C0,C0,84  >ZH 
2700 DATA 88,3,4,0,C,80,3,4,0,F0  >XD 
2710 DATA A0,3,4,0,A0,0,3,4,A0,50  DYZ 
2720 DATA 0,50,3,3,0,A0,40,0,0,3 XX 
2730 DATA 5,40,3,3,0,3,3,A0,0,A0  DXV 
2740 DATA 0,0, A0, FO,0, AO, AO,FO, A0, DCA 
50 

2750 DATA 0,50,0,3,4,A0,3,E,0,40  DXK 
2760 DATA CO, CO, 4C, 3, 3,0, 44, 48,80,3 DAX 
2770 DATA 3,0,10,30,0,30,3,3,0,3  DXW 
2780 DATA 6,20, 10,0, 20, 20,0,0, 20,20 DZV 
2790 DATA 0,0,3,5,20,3,3,0,3,3 W 
2800 DATA 20,0,20,0,3,8,20,10,0,10 DYH 
2810 DATA 0,3,4,20,3,E,0,40,C0,C0  DYF 
2820 DATA C4,3,3,0,8C, 48,80,3,3,0  DYP 
2830 DATA 44,3,3,CC,3,3,0,CC,3,3  DYZ 
2840 DATA 88, CC, 88, CC, 3,3,88,0,0,CC >BN 
2850 DATA 3,3,0,CC,3,3,88,CC,88,0  >ZA 
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2860 DATA 0,CC,0,CC,B8,88,0,CC,3,7 AW 
2870 DATA 88, 44,0, CC, 88, CC, 3,3,88,3 >BM 
2880 DATA F,0,C0,80,84,88,0,10,C, 40 >AD 
2890 DATA 80,3,47,0,C0,0,40,8,98,64 >AG 
2900 DATA 8, 40,80,3,47,0,C0,0,0,C0 DZH 
2910 DATA 4C, 24, 80,0, 80,3, 4B,0,84,8 DEN 
c 

2920 DATA 80,0, 80,3, 4A,0, 40,84, 48,3 DAQ 
2930 DATA 4D,0,40,C0, CO,3, 4D,0,40,C >BY 
0 

2940 DATA CO, 3, 4D,0, 40, C0, CO, 3, 4D,0 >AQ 
2950 DATA 40,C0,C0,3, 4D,0,40,C0, C0, >BY 
3 


2960 DATA 4E,0,C0,80,3,FF,0,3,FF,0 DAL 
2970 DATA 3,39,0,3,3,3F,3,4C,0,55 YU 
2980 DATA AA,55,A4,3,3,0,F,A,F,A YU 
2990 DATA F,A,F,A,0,0,F,0,F,A >uG 
3000 DATA 0,0,,0,5,3,3,0,F,0 VA 
3010 DATA F,A,F,A,F,A,F,3,3,4 UP 
3020 DATA 5,0,F,A,F,A,F,A,F, A >UP 
3030 DATA 3,1D,0,55,0,FF,3,4,0,41 DR 
3040 DATA 0,82,0,82,0,41,3,3,0,3  >XC 
3050 DATA 3,82,3,3,0,82,0,82,82,0  DYZ 
3060 DATA 0,3,3,82,0,82,0,3,4,82 XP 
3070 DATA C3,3,3,82,41,0,41,0,3,4 DYH 
3080 DATA 82,3,1E,0,54,FC,A8,3,3,0  >2F 
3090 DATA 54,0,FC,0,FC,AB,54,3,3,0  DAP 


3100 DATA AB,A8, FC, 3, 3,0, 8,0, A8, A8 >BG 
3110 DATA 0,0, AB,AB,FC,0,FC,0,3,8  )2ZP 
3120 DATA AB,54,0,54,0,3,4,A8,3,1F 2] 
3130 DATA 0,50,F0,3,3,0,50,0,A0,0  DYE 
3140 DATA 0,A0,50,3,3,0,3,3,40,3  DXA 
3150 DATA 3,0, A0,0,F0,A0,0,0,3,3  DXN 
3160 DATA A0,0, 40,0, AO, AO,F0, 0, AO, À >BC 
0 

3170 DATA F0,A0,50,0,50,0,3,4,A0,3 »ZH 
3180 DATA 1D,0,10,20, 10,30,3,3,0, 10 DAA 
3190 DATA 0,20,0,0,20,10,3,3,0,3  >XH 
3200 DATA 3,20,3,3,0,20,0,20,20,0  DÉL 
3210 DATA 0,3,3,20,0,20,0,3,8,20  >XP 
3220 DATA 10,0,10,0,3,4,20,3,1E,0  DYJ 
3230 DATA CC,CC, 88,3,3,0, 44,0,CC,88 >BY 
3240 DATA CC, 88, 44,3, 3,0,CC,0,CC,88 DBZ 
3250 DATA 0,0,CC,3,3,88,0,0,CC,0  DYR 
3260 DATA CC, 88,88,0, CC, 3, 7,88, 44,0 >BG 
3270 DATA CC,88,CC,3,3,88,3,FF,0,3  DAA 


3280 DATA FF,0,3,FF,0,3,FF,0,3,FF  ZU 
3290 DATA 0,3,FF,0,3,FF,0,3,FF,0  DYT 
3300 DATA 3,FF,0,3,FF,0,3,FF,0,3  DYM 
3310 DATA FF,0,3,FF,0,3,FF,0,3,FF  )ZM 
3320 DATA 0,3,FF,0,3,FF,0,3,FF,0  DYL 
3330 DATA 3,FF,0,3,FF,0,3,FF,0,3  >YQ 
3340 DATA FF,0,3,FF,0,3,FF,0,3,FF  )2Q 
3350 DATA 0,3,FF,0,3,13,0,0 >TY 





100 GOSUB 24100 

200 SYMBOL AFTER 200 

300 DIM br(12),nd(12) 

400 rec=0 

500 KEY 139,'"ink 0,0:ink 1,14:borde 
r O:paper O:mode 2:pen 1:1ist"+CHR$ 
(13) 

600 DEFINT a-z:DEFREAL c 

700 ra$=CHR$ (235) +CHR$ (235) +CHR$ (23 
5)+CHR$(235) :MODE 1 :a2=2:b-3:c=2:d 
=3:e=2:f=2:g-3:h=2:d1=2 

800 SYMBOL 250, 189,0, 189, 189, 189,18 
9,0, 189 


800 SYMBOL 200,36,66,165,24,24,165, 


66,36 

1000 SYHBOL 201,0,56,84, 146, 186, 146 
84,56 

1100 SYHBOL 202,36, 102,231,24,24,23 
1,102,36 


1200 SYHBOL 203, 16,108,68, 146,68, 10 > 


8,16,0 

1300 SYMBOL 204, 130,56, 84, 108, 84,56 
,130,0 

1400 SYMBOL 205,60, 90, 219, 165, 165, 2 
19,90, 60 


1500 SYMBOL 206,60,66,161,153,153,1 > 


33,66, 60 

1600 SYMBOL 207, 153,60, 90, 247, 239,9 
0,60,153 

1700 SYMBOL 208,60, 24, 165,203, 211,1 
65, 24,60 

1800 SYMBOL 210,118, 187,221, 238,119 
,187,221,110 

1900 SYMBOL 211,110, 221,187, 119, 238 
,221,187,118 

2000 SYMBOL 212, 102, 189, 219, 102, 102 
219, 189, 102 

2100 SYMBOL 213, 102,255, 102, 24, 102, 





THE LAST BRICK 


Au risque d'en étonner plus 
d'un, le programme suivant est 
un casse-briques. Bien sûr, ce 
n'est pas Arkanoïd ou tout autre 
programme débordant de 
graphismes somptueux, mais 
enfin, je pense qu'il devrait vous 
amuser. 


Le mode d'emploi est dans le logiciel. 


255, 102, 24 

2200 SYMBOL 214,255, 129, 189, 165, 165 
,189,129,255 

2300 SYMBOL 215,189, 189, 129,60, 60, 1 
29,189, 189 

2400 SYMBOL 216,153,195,231,126,126 >NQ 
,231,195,153 

2500 SYMBOL 217,219, 231,255, 36,66,2 LT 
55,126, 189 


NU 


2600 SYMBOL 218,255, 201,181, 179,205 >NB 
,173,147,255 
2700 SYHBOL 219, 189,126,195,219,219 >NE 
,195, 126, 189 
2800 SYMBOL 220,231,189,219,118,110 >NU 
,219,189,231 
2900 SYMBOL 230, 199, 199,203,211,227 >NA 
,211,203, 199 
3000 SYMBOL 231,63,127,200,212,226, HG 


209, 203, 199 
3100 SYMBOL 232, 255,255, 16, 40,68, 13 >KF 
1,255, 255 


3200 SYMBOL 233,252,254,19,43,71,13 >KC 
9,211,227 

3300 SYMBOL 234,227,227,211,203,199 >NG 
,203,211,227 

3400 SYMBOL 235,0,0,255,136,85,213, >HR 
255,255 

3500 ? )YA 
3600 tga=8:tdr-1:G0T0 18600:des=1  >BW 
3700 GOSUB 24100 >DD 
3800 WINDOW #1,9,9,6,15:a$=" JOUER" CE 
3900 PEN #1,1:PRINT #1," ">MK 


:"0 123 45 6"; 
4000 d#=" FRANCAIS":e$=" ENGLISH":f >RX 
$=" DEUTSCH" 


4100 g$=" CURSEUR":h$=" JOYSTICK":i >NG 
$=" DEMO" 
4200 PAPER 0 ZE 


30 





4300 LOCATE 16,2 :PEN 3:PRINT "HE DEC 
NU" 
4à00 LOCATE 16,3 :PEN 1:PRINT "==2= FT 


4500 LOCATE 10,6:PEN a2:PRINT a$ >ZG 
4600 LOCATE 10,8:PEN d:PRINT d$ >YH 
4700 LOCATE 10,9:PEN e:PRINT e$:LOC DU 
ATE 10,10:PEN f:PRINT f$ 

4B00 LOCATE 10,12:PEN g:PRINT g$:LO >VA 
CATE 10,13:PEN h:PRINT h$:LOCATE 10 
,15:PEN di:PRINT if 
4900 LOCATE 9,23:PEN 3:PRINT "VOTRE >PK 
CHOIX (0-6) svp ?":LOCATE 10,25:PE 

N 2:PRINT CHR$#(164)+" copyright CPC 
1987" 

5000 ci$=INKEYS FC 
5100 IF c1$="0" THEN a2=3:LOCATE 10 WC 
,6:PEN a2:PRINT a$:FOR pau=i TO 100 
O:NEXT:a2=2:G0TO 6000 

5200 IF ci$="{" THEN e=2:f=2:d=3:L0 DRT 
CATE 10,8:PEN d:PRINT d$:GOT0 18600 

5300 IF ci$="2" THEN d=2:f=2:e=3:L0 >RT 

CATE 10,9:PEN e:PRINT e$:GOTO 19000 

5400 IF c1$="3" THEN d=2:e=2:f=3:L0 >TK 

CATE 10,10:PEN f:PRINT f#:GÜTO 1940 

(e 

5500 IF ci$="4" THEN h=2:g=3:LOCATE >MA 
10,12:PEN g:PRINT g$:G0T0 19700 

5600 IF c1$="5 THEN g=2:h=3:LOCATE >MP 
10,13:PEN h:PRINT h$:GOTO 20000 

5700 IF ci$="6" THEN di=3:LOCATE 10 >JC 

.15:PEN di:PRINT i$:GOT0 20300 


5800 GOTO 5000 >MF 
5900 END >2C 
6000 ? HAMMAM HUMUENUUNE appel DR >XJ 
APEAUX CHARME 

6100 GOSUB 21000 >CG 
6200 GOSUB 26000 »DC 
6300 CALL &BB18 >UF 
6400 CLS >ZK 
6500 GOSUB 24100 )DE 
6600 GOSUB 23800 >EB 


6700 DATA 129,234,129,234,133,234,1 >RA 
24,338, 158,260, 197,364, 177,338, 173, 
312,155,382,359, 390 


6800 MODE 1 >PK 
6900 WINDOW #3,8,33,5,20 RL 
7000 br=0 >DG 
7100 1=1 >VH 
7200 vi=3 >FC 
1300 W=20:sc=10 >AK 


7400 PEN 1:LOCATE 4,1:PRINT sc$::PE DBJ 
N 2:PRINT sc:LOCATE 17,1:PEN 1:PRIN 
T rec$::PEN 2:PRINT rec:LOCATE 29,1 


:PEN 1:PRINT vif; 


7500 GOSUB 18300 >EA 
7600 GOSUB 11000 >DB 
7700 GOSUB 12600 >DK 


7800 PARRMNRENNEENNNENNNNNNNEENNEES TH 

HHH4 

7900 "###### BOUCLE PRINCIPALE ### >YJ 

Hi 

8000 "ARHHANEENNENNNENNNEENEEENNUNEE )YA 

HA 

8100 x=INT(RND#12)+10:y=20:3x=1:5y= >GD 

-1 

8200 ? 

8300 IF x<=8 THEN sx=1:SOUND 1,100, 

5,14,1 

8400 IF x>=33 THEN sx=-1:SOUND 1,10 

0,5,14,1 

8500 1F y<6 THEN sy=1:SOUND 1,50,5, >FD 

14,1 

8600 x=xtsx:y=y+sy 

8700 IF y>24 THEN LOCATE x-9x,y-sy: DAL 

PRINT " ":GO0SUB 10600 

8800 a=TEST((x-2)#16+16,380-((y-2)# 

16)-8) 

8900 b=TEST((x-2)#16+17,380-((y-2)4 

16)-20) 

9000 PEN 2:LOCATE x,y:PRINT CHR$(20 >RA 

Otba):LOCATE x-s51,y-8y:PRINT " " 

9100 IF a=3 THEN SOUND 1,284,4,14,1 

»1,1:sc=sct2:br=br+l:sx=9x:3y=-8y 

‘9200 IF a=2 THEN SOUND 1, 1000, 4, 14, 

{:sc=acti:br=brt{:sx=9x:s3y=-3y 

9300 IF b=1 OR a=1 THEN SOUND 1,200 >IV 

,5,15,1:sc=sct1:z=INT(RND#4)+1:1F z 

=2 OR z=3 THEN x=x+1:LOCATE r-1,y:P 

RINT " ":9x=-sx:9y=-5y ELSE sx=9x:8 

y=-sy 

9500 LOCATE 10,1:PRINT sc 

9600 IF (sc MOD 200)=1 OR (sc MOD 2 

00)=0 THEN sc=sc+2:1F vi>=6 THEN G0 

TO 8300 ELSE vi=vit1:G0SUB 18400:G0 

TO 8300 

9700 "HAMEAUX 

CITE LE LEE PEETPTETE 

9800 IF br=br(1) THEN 1=1+{:br=0:1F >RM 
110 THEN GOTO 60000 ELSE GOSUB 24 
100:CLS #3:G0T0 7700 

8900 IF INKEY(tga)=0 THEN w=u-2:LOC >AR 
ATE ut4,24:PRINT " * 

10000 IF INKEY(tdr)=0 THEN w=u+2:1F >FL 
w-2(7 THEN 10200 ELSE LOCATE u-2,2 

&:PRINT " * 

10100 IF INKEY(71)=32 THEN 1=l+1:br 


>YC 
>HH 


>JP 


UD 
>A4 


coapteur bri >YJ 


>UQ 








=0:GOSUB 24100:GOSUB 12200:G0T0 740 
0 


10200 IF u<8 THEN u=8 Nu 
10300 IF w>30 THEN u=30 >(P 
10400 PEN 1:LOCATE w,24:PRINT ra$ )AU 
10500 GOTO 8300 UF 


10600 FOR q=200 TO 270 STEP 6:SOUND >WD 
1,q,5,4:NEXT:vi=vi-1:1F vid0 THEN 

GOSUB 18300:G0T0 8100 

10700 CLS:PEN 2:LOCATE 15,10:PRINT XP 

"GAME OVER":FOR 1={ TO 2500:NEXT:C 

LS 

10800 IF sc>rec THEN rec=sc >VH 
10900 WHILE INKEY$C)"":WEND: INPUT " >YQ 

Une autre partie ",o$:1F 0$="o" THE 


N RESTORE:CLS:G0T0 3700 ELSE END 
11000 YARNMMHNEHHNNNHNNEEENNNENNEIS )CH 


CETETEPTETTESES TITI III . 
11100 VHHNNEHNNEHENNENN THE LAS )CJ 
T BRICK HHHNMEHNNENHNNNENE 


11200 YHRNEHERNEHNNHNNEEHNNENENEES CK 
LELFETETIETESENFTETTICTEESFEE 


11300 WINDOW #4,1,6,5, 25 >RI 
11400 PEN 84,3:PRINT 84," T 7 
H E L A 
5 ï B R 
I C k" 
11500 WINDOW #5,37,37,5,22:PEN 85,3 DEK 
:PRINT 45," LEVEL "::PEN 85,2 
2 PRINT 45,1 
11600 ” >DD 


11700 WINDOW #1,7,7,5,25:PEN #1,1:P )BC 
RINT #1,STRINGS (20, 230) 

11800 PEN 1:LOCATE 7,4:PRINT CHR$(2 )ED 
31) 

11900 LOCATE 8,4:PRINT STRINGS(26, 2 )FR 
32) 

12000 LOCATE 34,4:PRINT CHR#(233)  DAZ 


12100 WINDOW #2,34,34,5,25:PRINT #2 DED 


; STRING# (20, 234) : RETURN 

12200 ? >DA 
12300 >DB 
12400 CLS:RETURN > 


12500 "HRNMMENNEENNNENNNENNNENNUNUE >DD 
LÉLLÉEESES SEE TEETETEETEES 


12600 "HHNNHHAHNNEENE ECRANS )DE 
ÉPETFPTEFSTÉESTE 

12700 GOSUB 24100 )LT 
12800 WINDOW #3,8, 33,5, 20 TA 
12900 PEN 85,3:PRINT #5," LE VE CH 


L ";:PEN 45,2:PRINT 45,1 
13000 au=INT(RNDS10)+1:LOCATE 43,1, >YR 
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1:FOR ii1=1 TO nd(1) 

13100 READ c 

13200 IF c=0 THEN PRINT #3," "; 
13300 IF c=1 THEN PEN #3,3:PRINT #3 
, CHR$ (210tau) ; 

13400 IF c=2 THEN PEN #3,2:PRINT #3 
» CHR$ (210+au) ; 

13500 -NEXT 

13600 RETURN 

13700 ? 

13800 
13900 YANN 
CETETETEEPTEE TEE 

14000 DATA 21,25599999999999999090 


000929 525l525l5999990999999990990 
9211521,2,1,2,2,2,,55359999999999 
»92919 2992599999 l990090000 
»»550 
14100 DATA 2,1,2,1,2,2,2,2,2,2,2,2, 
2,2,2,5599995599929 4525, 
Lolo l5l559990999 2919295252 
»2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,,, 
0 
”, 
14200 DATA 2,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,1,,,2,2,2,2,2 
»2125212522,2,2,2,2,2,2,2,2,2,2,2, 
2,2,2,2 
14300 "HHHNEENNEEENNEEN 
MÉRRRHEHHÉHENNES 
14400 DATA 2,2,2,1,1,1,2,2,2,1,1,1, 
2,2,2,1,1,1,2,2,2,1,1,1,2,2,1,1,1,2 
1225151,1,2,2,2,1,1,1,2,2,2,1,1,1, 
2,2,2,0,0 
14500 DATA 2,2,2,1,1,1,2,2,2,1,1,1, 
252125451315 2,25 599905195492 252 
952525 2515151,2525 2555955955» 0 
14600 DATA 2,2,2,1,1,1,2,2,2,1,1,1, 
2,2,2,555555955 0551515 25232,1,1,1 
»2525255599999929993 0 
14700 DATA 2,2,2,1,1,1,2,2,2,,,,555 
vo0»50000005151,2,2, 255559999909 


5992999902 25255559999999999090009 


level 1 ## 


level 2 #4 


10 
14800 "HRHHNNEENNEEEN 


MÉRHÉNHSRÉEHHNES 

14900 DATA 2,2,2,,,,559999900299999 
»9925 2545592232, 5559999909990592 
»22551,1,1,1,1,1,2,2,2,,;5555s5 
D DELAI 

15000 DATA 2,2,2,1,1,1,1,1,1,2,2,2, 
RARE PO DE DR ME DURE D 0 IN 
2,1,1,1,1,1,1,2,2, s 1,1,1,1,1,1,2,2 
»2115452525254151,1,1,1,2,2 »255552 


level 3 ## 


> 
> 
>QP 


»0Q 


MR 


DRE LL 122 

15100 DATA 1,1,1,1,1,1,2,2,2,,,55» Y0R 
5002525 255l5lliits,l5252,2559 5 
vr99009000 292259252525 999099 
952999999599 292 

15200 "HHHAHHHHMEENNEENE 
ÉRRISEISISEISES EL 

15300 DATA 1,2,,,1,2,55152555492595 PC 
1,2,9915255515 2559525995 259 91525 
111255942594 2599 9255949259» 9 29 
2015255 91525998 025999990259» À9 25 
290519025599 2992502 2002005929 s 
215255942509 5 255552999095 255 9 À 
2559492599 52959599299 5 À 

15400 DATA 1,2,,,1,2,,,1,255s19 2555 CP 
099921191519 2559 929999259989 2599 


299999902990 152559 525599 25599909 0 


level 4 ## »DD 


vosn2000990 1925995 2999959239 29 25 29 
1,1,1,1,2,2,2,1,2,,,1,2,,;3595999999 
n9229999999 À 25s5999999999999990999 


912509999959 252525252511, 


2,2,2,2,2 

15500 "H#H###HAHMEEHAEEHE level 5 #4 >DG 
LISE SEISE ES ESE SE) 

15600 DATA 0,,,2,2,2,2,2,2,2,,,,552 DRR 


1212125212 2525252r2599 585555 
Loss999lotolslolst,1,1,1,1,1,1,,2,2 
212252525595 9 9 29 29 29 25 29 2929 2529 
2,2,2,2,1,1,1,1,1,1,1,35599t59t5ls 
s299900191015 223252325235 9l59 9 2929 
2,2,55999999 2925259555 59990 À 
1,1,1 

15700 ! DATA Viss9999999299299999 DJ 
v91992525 252599252290 5 9 29 29 29 25» 2 
92552125 2552555 299925952593 299 9 25 

» 2112129252 252525 252525592559 25 99 
2555259 25925925959 252525 259» 3 29 2525 
111252129253 255 25925599 29 22525 25 29 
,212325252,,2555255 25925925 59925 259 
125525999 

15800 DATA 0,,,,,55594515152525225 DHB 
91992292 255559999299 22925551 
999981 5l555599999999 95152525 
9155225212 2525 222925252929 2529 
2323252525l5559 lt 
1,1,1,1,1,1,1,1,1,1,1 
15900 "HHNHEHNNENHNNEEEHE 
MÉRRRNERRNERNHENS 

16000 DATA Oss59599999990295999099 BB 
v0921212521252525 2525252525 252525 29 
252525212521 25 2525225455 los 5 25 
1,1,14,1,1,1,1,1,1,1,2,,1,1,1,1,1,2, 
2,1,2,2,2,,,2,1,2,2,2,,,2,2,2,1,2,, 


level 6 ## )EA 











121252152525 925855992919 2599909 À 
125152555952 525255255999 219299 
5199921 

16100 DATA 2,,,552152525155 9 9 9 » 25 1) ZÀ 
s000000001 2999909 5292599999 25099 
590999925995559 252555999525 9599990 
599259999112 25 5255900 25À59990090 
1125559925 5252543 2555959 29525999 
100252590949 255 25 294329252592 À 
252559952525 52559 225251525255 
1,1,1,,2 

16200 DATA 1,1,1,1,,,1,1,1,1,2,,1,1 >YD 
101513252525 25 2925 29 29 25 29 25 29 2529 
2,2,2,2,2,2,2,2,2,2,2,2,2 
16300 "HHNHEHNHENNNEHE 
CTTFÉFTIITEISEEE 

16400 DATA O,s»99999999999 9190099 >DB 
n999999099999 2 225 2525 2,2,2,2,2,,; 
pr999999929r9 2 2525 2525252) 2525 2529 
259959999999 25 2 2522325225 2,2, 
2,2,2,2,55599595999 292 252525252529 
2,2,2,2,2,2,2,2;5555599999%1515 151 
ANA NE NINITILT 
1,1,»1,1 

16500 DATA ATP ON PE PTIT >BH 
CET CE PETER TETE PROC TEL UE PETITES 
519911991552 255, 
559999999115 225411 
nlols5l59900 925259995549 
1,2,2,1,1,1,1,1,1,1,,2,1,2,1,2,1,2, 
1,:4:4,1,41,1,152,2;4,1,1,2,1:14 


level 7 ## »>DF 


7? 
»1,2,1,2 
16600 DATA 1,2,452,5r950259%920000 29 DHE 
,»2,1,2,1 
16700 "HHHMHSHMSHNNEISE level 8 3% >DK 
HIS SEISIESEISEES 
16800 DATA 0,,,,2,1,2,1,2,1,2,1,2,1 EN 


» 215251525525 l55500999 529525 À 52 
211221325452 452552599939 2 
»12,1,2,1,2,1,2,1,,,2,1,2,1,2,1,2, 
Lo 299 2949295 29599909 9 29 
1,21,2,1,2,1,2,,2,1,2,1,2,1,2,1,,, 
»91959999 294925192525 5254525 432 
»1155552 

16900 DATA 2,2,2,2,2,,,,,2,1,2,1,2, DXK 
TXT TETE CETETS TS TE TE ET 
v00291 2592519 9 9 9 » 29 29 29 29 25 252529 
2,2,2,2,2,2,559525Â5555559999999999 
955995599099 29 2525255 l555990090 
»90019 25252525 lss55599900909999000 
»99595959959999 222525 l54,1,1,1,1, 
2,2,2,2 

17000 DATA 0,,,,,0 >LA 
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17100 "HHHHHHHNHENNEENN 
BÉRRRRRRRNEHHNS 

17200 DATA 0,,99999599995Â59999099 >CK 
»9999999159599909l0l00999900000 1 
9000 25%599990015252585l5900990 À 
2,4559994999900 194925401525 t5l9999 
»91559959990001525151511,2,1,1,, 
»99999999999992 192595252555 25 À 
»2559999959009 59908015 25f5t1,152, 

PE CETTE 

17300 DATA 0,,,,552,1,1,555513251s DD 
TETE TEINTE OL IITETE ELITE 
115225505999 1949 254959992951 
IEC TTTTE TE OT TITITE CE IE TETE 
v9012585852,55559 55999990 2915132 
159019291599 2999999099 29959 125 À 


CPPEEITE TIRE CE CCE PR CE PTIT 


level 9 ## DE 


599959192 

17400 DATA 0,,1,1,2,2,2,2,1,1,,,529 DHU 
»992»95999059 15 

17500 "HHHN#HHA#NYEHENEEES level 10 # >DJ 
ÉESSE ISLE ESS SIT) 

17600 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 2ZN 
1,1,1,1,1,1,1,1,4,1,14, 4519 1 25 2, 2,2 
»11,2,2,2,2,1,1,2,2,2,2,1,2,1,2,1, 
1,2,2,2,1,2,1,1,2,1,1,2,1,1,2,1,1,2 
»11,2,1,2,1,2,1,2,2,2,2,2,2,2,2,2, 
1,1,2,1,1,2,1,1,2,1,1,2, 1,2, 1,2, 1,2 
»1,1,1,2,2,2,2,1,1,1,2,2,2,1,1,1,2, 
2,2,2,1 

17700 DATA 2,1,2,1,2,1,1,1,2,2, 2,2, 
2,2 

17800 DATA 1,2,2,2,2,2,1,2,1,1,2,1, TI 
2,1,9,1,2:14,1,1,2,2,1,0,1,2,1,2, 1,1 
1,2 

17900 DATA 1,2,1,1,2,1,2,1,2,1,2,1, LH 
1,1,2,2,1,1,1,2,1,2,1,1,1,2,1,2,1 1 
»211r2,2,2,1,2,2,2,2,2,2,2,2,2,2,1, 
2,1,1,1,2,1,2,1,1,2,1,1,2,4,1,1,2,2 
»21411,1,1,1,1,1,1,1,1,1,1,1,1, 
111,1,1,1,1,1,1,1,1,2, 2,2, 2,2, 2,2 
»212,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

2,2 

18000 ’ DATA 0,2,,52552592592599929 )DE 
2119929 929 9 9 3 23 9 25 9 29 » 21 23 25 9 25 25 2 
12125 2525252525523559 2552595255 5 29 9 
v1212525559999990999999959000909099 
2,2,2,2,2,2,2,2,2,2,2,2,2,9,2,9,9,9 
»212,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1, 
LL LL OLA LEA ÉT 

18100 DATA 1,1,1,1,1,1,1,1,1,1,1,1, >CU 
1,1,1,1,48t1,1,1,1 

18200 DATA Ü,s5r9299999909999299993 >EQ 


VV 


CF 


ss tootohobtitstototitotototols 

1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2 

121212252525 25 25 29 29 25 29 29 29 29 2529 

2 

18300 ba=INT(RND:9) >NC 

18400 PEN 2:LOCATE 35,1:PRINT " >VU 
":LOCATE 35,1:FOR 13=1 TO vi:PRIN 

T CHR$(200+ba) ; :NEXT 

18500 RETURN >HG 

18600 ? #####H#H#H#HHUE francais ####4 )EA 

CECPPIIFE 

18700 sc$="SCORE:": rec$="RECORD:" >HG 

:vi9=" VIE:":des=1:par$=" PAR":et$= 

L] ET" 

18800 tou$=" APPUYER SUR UNE TOUCHE >GA 

" 

18900 G0TO 3800 >VH 

19000 ! susssunsisu english ###4# >DF 

ÉTTPEIITE 

19100 sc$="SCORE:": rec$="HIGH :" HA 


svis="LIFE:":des=2:par$=" BY":et4= 
L] AND" 
19200 tou$=" PRESS À KEY" )1G 


19300 GOTO 3800 NC 
19400 ‘as#w#t###5 deutsch ######4#4 )DK 
CETEE 

19500 sc$="PUNKT:": rec$="REKORD:"  >RH 
svi$="LEBEN:":des=3:par$=" DURCH":e 
ts=" UND" 

19510 tout=" DRUCKEN AUF DIE TASTE! >FG 
" 


19600 GOTO 3800 >VE 
19700 #H#H##H#H#NHHE curgSeur #######3% }EC 
HIS 


19800 tga=8:tdr=1 MY 


19900 GOTO 3800 NN] 
20000 ‘sawsssust joystick #####413% )CH 
HHHH 

20100 tga=74:tdr=75 >NH 
20200 GOTO 3800 >UD 
20300 YHHHHHEHNEHEENHENHEE DEMO # )DA 
CUTFFFFSITTCEEPEEIETITE 

20400 1=1 >BB 
20500 GOSUB 23800:MO0DE 1:LOCATE 14, HE 
2:PEN 2:PRINT "#3 DE MH O0 ##" 

20600 GOSUB 11000:WINDOW #5,37,37,5 >UW 
,22:FO0R N1=1 TO 10 

20650 IF INKEY$C)"" THEN MODE 1:G0T >GP 
0 3800 

20700 GOSUB 12600 LU 
20800 FOR N2=1 TO 2500:NEXT:CLS #3 AU 
20900 L=L+1:NEXT:MODE 1:GO0T0 3800  >BH 
21000 'HHHHEHEMMEHENEEES DRAPEAUX  )DCJ 








PTETTTTIIETTÉETTS FETES 

21100 ON des GOTO 21200,21800,23200 >AD 

21200 "###########  Drapeux frança )DA 

19 HAINE 

21300 MODE 1:1INK 0,0:BORDER O:INK 1 >4C 

,2:INK 2,26: INK 3,6 

21400 ORIGIN 0,0,0,213,0,399:CLG 1 >ZC 

21500 ORIGIN 0,0,213,426,0,400:CLG BL 

2 

21600 ORIGIN 0,0,426,640, 0, 400:CLG >BT 

3 

21700 RETURN >HC 

21800 "########## Drapeau anglais >DG 
CYFPEPFFEII STE TE 

21900 INK 0,0:BORDER O:INK 1,1:INK DAV 

2,6:INK 3,26:CALL &BCO6,&C0:GO0SUB 2 

6000:CALL &BB1B:CALL &BC06, k40 : GOTO 

6400 

23200 "HANHEHHNNEE 

nd HHHHHNHEHNEHN 

23300 MODE 1:1NK 0,1:BORDER 1:INK 1 >WD 

»0:INK 2,6:INK 3,15 

23400 ORIGIN 0,0,0,640,266,400:CLG >BT 

Î 

23500 ORIGIN 0,0,0,640,133,266:CLG BY 

2 

23600 ORIGIN 0,0,0,640,0,133:CLG 3 >ZY 

23700 RETURN DHE 

23800 )DJ 

23900 RESTORE 6700:FO0R 11=1 TO 10:R >BU 

EAD br(11),nd(ii):NEXT 

24000 RETURN )LJ 

24100 cih!=INT(RND#14)+1 >TG 

24200 IF clh!<1 OR cih!>14 THEN 336 >AR 

0 

24300 IF clh!=1 THEN cini=i4:cin2=2 >LK 

6:cin3=6 

24400 IF clh!=2 THEN cini=2:cin2:26 >KU 

:cin3=6 

24500 IF clh!=3 THEN cini=3:cin2=26 »LG 

:cin3=10 

24600 IF clh!=4 THEN cini=6:cin2:26 >LR 

:cin3=14 

24700 IF clh!=5 THEN cini=6:cin2=26 >KA 

:cin3=2 

24800 IF clh!=6 THEN cini=9:cin2=26 >KK 

:cin3=6 

24900 IF clh!=7 THEN cini=25:cin2=1 DLT 

0:cin3=6 

25000 IF clh!=8 THEN cini=4:cin2=26 >LR 

:cin3=17 

25100 IF clh!=9 THEN cini=10:cin2=2 >LH 

6:cin3=1 


Drapeux Allesa >DC 
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25200 IF cih!=10 THEN cini=10:cin2= >LA 
26:c1n3=3 

25300 IF clh!=11 THEN cini=18:cin2= >HD 
26:cin3=4 

25400 IF clh!=12 THEN cini=18:cin2= )ML 
9:cin3=26 

25500 IF clh!=13 THEN cini=i:cin2=2 >HA 
6:cin3=14 

25600 IF clh!=14 THEN cini=6:cin2=2 >LP 
6:cin3=3 

25700 IF clh!=15 THEN cini={2:cin2= >MH 
26:cin3=6 

25800 PAPER O:INK 0,0:BORDER O:INK JG 
1,cint:INK 2,cin2:INK 3,cin3 

25900 RETURN JM 
26000 WINDOW #2,14,27,9,17 >TH 
26100 ORIGIN 0,0,200,416,120,264:CL >DL 
G 3 

26200 PAPER #2,0:CLS #2:PRINT 8#2:PR >MP 
INT #2," THE":PRINT #2:PRINT #2:PR 

INT 82," LAST":PRINT #2:PRINT #2 
:PRINT #2," BRICK" 

26300 PLOT 208,264,0:DRAW 200,264:D >TT 
RAW 200,120:DRAW 422,120:DRAW 422,1 

28 

26400 ORIGIN 0,0,376,560,216,342:CL >DF 
Gi 

26500 WINDOW #2,25,36,4,11:CLS #2 >ZB 
26600 PRINT #2:PEN #2,3:PRINT #2,pa >PU 
r$:PEN #2,1:PRINT #2,"  ALACAHAN": 
PRINT #2," NIHAT":PEN 82,3:PRI 

NT #2,et$:PEN #2,1:PRINT #2,"  ATA 
LAY":PRINT #2," SAIT" 

26700 PLOT 384,342,0:DRAY 376,342:D DUX 
RAU 376,216:DRAV 566,216:DRAU 566,2 

24 

26800 ORIGIN 0,0,42,422,10,54:CLG 2 )AQ 
26900 WINDOW #2,4,27,22,24:PAPER #2 >KA 
,0:CL582 

27000 PRINT #2:PRINT #2, tous vi 
27100 PLOT 48,54,0:DRAW 40,54:DRAU HU 
40,10:DRAW 422,10:DRAW 422,16 

27200 PAPER 0 >FJ 
27300 RETURN )ME 
60000 sc=scavi:CLS #3:PRINT 83,3:PR >MC 


INT #3,"  CONGRATULATIONS":PEN #3, 
1:PRINT #3,"you have won° 

60010 PRINT #3:PRINT #3," vous av >TR 
ez gagne " 

60020 PRINT #3:PRINT #3," Sie habe >WV 
n gevonnen" 


60030 1=1:RESTORE 13900 :FOR nx=1 T >GG 
0 2000:NEXT:CLS #3:G0T0 7700À 


CATALOGUE SORACOM/ 


UNE AUTRE FACON DE CONCEVOIR 





RODY 
ET MASTICO 
Logiciel d'éveil de 4 à 7 ans 
Le joueur qui incarne le personnage de 
Rody, doit partir à la recherche de l'étoile 
multicolore qui a disparu. 
Cette quête est traitée sous forme d'aven- 
ture, au cours de laquelle Rody, aidé par 
Mostico, le robot qui parle, devra décour- 
vrir des indices, en répondant à des ques- 
tions. Ces dernières mobilisent le sens de 
l'observation et de la réflexion chez l'en- 


fant. 
Réf. GENS 010 CPC LEZ 
HAMSTERS EN FOLIE 
A partir de 10 ans 
Hamsters en Folie est une simulation économi- 


que et humoristique qui vous entraîne dans les 
mystères de la gestion d'élevage de hamsters. 





L'EDUCATIF 


A vous d'accoupler vos animaux, de vendre 
des hamsters, d'acheter de la nourriture, des 
cages, des magasins, de payer vos loyers et 
de faire face à loules les dépenses. 

Deux niveaux de difficulté. Sauvegarde possi- 
ble du jeu en cours. 


Disponible sur disquette 3 pour CPC 464, 


664 et 6128 225 F 


Réf. GENS 007 CPC 
LES 4 SAISONS DE L’ECRIT 
Français, expression écrite, 
vocabulaire, lecture 
Donnez à vos enfants les moyens et l'envie 
d'écrire avec : 
— Un traitement de texte simplifié qui permet 
de rédiger, d'imprimer, de sauvegarder les textes 
de son choix. (Les commandes sont expliquées 
d'une manière très simple et conviviale]. 
- Des modules de perfectionnement pour écrire 
sans fautes de ponctuation, améliorer son style, 
enrichir son vocabulaire, trouver et dévelop- 
per des idées. 


Au terme de ces efforts, le génie du langage 


apparaîtra. avec une surprise | 
CE/CM de 7 à 11 ans EG 


Réf. GENS 005 CPC 
6e/3e de 11 à 15 ans 
Réf. GENS 006 CPC 

DESTINATION MATHS 
Afin de participer à la grande aventure 
spatiale du XXIème siècle, développez vos 
aptitudes mathématiques. L'essentiel des 
connaissances pour CE, CM, 6ême/Sème. 
Très grande facilité d'emploi, réalisation 
exceptionnelle : décors futuristes, anima- 
tions, musique. 
CE1/CE2 
Réf. GENS 001 CPC 
CM1/CM2 
Réf. GENS 002 CPC 


6ème/5ème 
Réf. GEN5003 CPC 





ILIVRES 


Pour tous les 
passionnés 
d'ondes courtes, 
codage, 
décodage, 
réception/ 
émission, 
interfaces. 





Disquette : 250 F 


COMPILATIONS CPC 





Vous recherchez les anciens numéros 
de CPC 2 

Vous souhaitez connaître le mode 
d'emploi de certains logiciels du 
téléchargement ? 


Alors voici les compilations de 1 à 4 
et de 5 à 8 de CPC. 





Nombreuses 
routines : utilitaires 
de programmation, 
utilitaires 
graphiques, la 
gestion de fichiers, 
utilitaires 
imprimantes. 





— ‘iuai 
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COMPIL 1 à 4 


COMPIL 5 à 8 


Environnement 
matériel, commande 
de CPM3.0, le 
BDOS, le BIOS, 
fichiers binaires, 
éditeur de 
disquettes, 
désassembleur Z80, 
graphismes, 
caractère à la 
loupe. Disquette : 150 F 

D + 





_— 











POUR LES MOINS DE 6 ANS 


Compte les nounours : divers nounours paradent sur l'écran. A toi de les 
compter. 

Le pique-nique avec nounours : guide nounours à travers le labyrinthe 
pour qu'il trouve son déjeuner manquant. 

Le train des couleurs : arrête le train devant la gare de la même couleur. 
Trouve la taupe : trouve la taupinière de la bonne taille en utilisant les 
mots “plus haut” et “plus petit”. 

Trouve la lettre : nounours aide à reconnaître et à épeler une lettre. 
Epèle : une version du très populaire pendu, les images sont des indices. 
Trouve très rapidement une forme : des formes colorées et des lettres 
apparaissent très rapidement sur l'écran, associe-les lorsqu'elles vont ensem- 
ble. 

Ecris une lettre : un éditeur de texte très simple permet aux enfants d'écrire 
au clavier. 


Réf. UBI 001 CPC 6128 : disk 
Réf. UBI O11 CPC 6128 : K7 


149 F 
129 F 


POUR LES 6 À 8 ANS 


Le train des nombres : calcule le nombre de passagers qui montent et 
descendent du train. 

Le labyrinthe des chiffres : sauve-toi du labyrinthe en trouvant le résultat 
des puzzles mathématiques des robots. 

La chenille : une version du pendu. Si ta réponse est bonne, tu aïderas la 
chenille à manger la pomme. 

Au magasin : trouve les bons magasins pour faire les courses qu'il y a sur 
ta liste. 

L’emballage : range un ensemble de formes différentes dans une boîte rec- 
tangulaire. 

La chasse au trésor : trouve le trésor enfoui à l'aide de ses coordonnées et 
de messages tels que “tu brüles”, et “tu t'éloignes”, etc. 

Saut de nombres : un jeu avec les tables de multiplication. La grenouille 
doit sauter sur l'écran en utilisant les multiples corrects. 

Rebond : fais rebondir la balle sur un mur et sur des obstacles à un angle 
correct, de façon à toucher la cible. 


Réf. UBI 002 CPC : disk 
Réf. UBI 012 CPC : K7 


149 F 
129 F 











POUR FAIRE RIMER 





EDUCATION ET RECREATION, | 





MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 


MULTICOURS 6è 


Français : amélioration de la vitesse de lecture et de la compréhension du 





texte autour d'exercices variés et amusants. 

Sciences naturelles : une initiation à la démarche scientifique et aux lois 
biologiques du monde vivant abordée avec des mots simples. 

Géographie : découverte de la variété des milieux naturels et initiation à 
l'interprétation de cartes, graphiques et autres données climatiques. 

Jeu : un jeu divertissant à découvrir. 


Réf. : GU 557064 


MULTICOURS 3è 


Français : test de performance de 
lecture suivie, qualité de compréhen- 
sion, appréciation du sens et du style 
grâce à une pédagogie active. 

Sciences naturelles : uneinitiation 
à la biologie humaine apprenant à 
observer et à interpréter les compor- 


tements de notre corps. 


Géographie : analyse de cartes et interprétation de diverses données statis- 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 


économique industrielle. 


Jeu : 1 jeu divertissant à découvrir. 


Réf. : GU 557124 











| MULTICOURS 4è | 





Mciuciitore 
Thin ture res 


Français : maîtrise de la lecture avec 
le support d'un texte riche et une va- 
riété d'exercices de compréhension 
d'analyse et de logique. 

Sciences naturelles : découverte 
de la Terre et de son histoire à tra- 
vers les grands phénomènes géolo- 
giques abordés grâce à des textes de connaissance, des animations. 


Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 


alliances : le mode d'emploi pour 1992. 
Ré. :GU557104 EXT 


MULTICOURS 5è | 


Jeu : 1 jeu divertissant à découvrir. 








Français : perfectionnement de la 
lecture regroupant lecture et recher- 
che, anticipation mais aussi interpré- 
tation. 

Sciences naturelles : initiation à la 
biologie animale et végétale à travers 
l'alimentation, le système de respira- 
tion, le mode de reproduction ou de locomotion. 

Géographie : Voyage sur 2 continents proposant une découverte du quoti- 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique. 


Réf. : GU 557084 


e" chapitre: + 


Jeu : 1 jeu divertissant à découvrir. 





35 





EDUCATIFS : 4 NOUVEAUTES INDISPENSABLES ! 


DECLIC LECTURE 


niveau CP 
Logiciel d'apprentissage 
de la lecture de base. 


Conçu pour éviter un échec dans 
l'apprentissage de la lecture au CP, il suit 
une progression prévue pour déclencher au 
bon moment le mécanisme de la lecture. 


UTILISATION : 

- En complément de la classe de CP. 

— Pour le travail avec les parents. 

— Dans les activités de soutien, d'aide et de 
rééducation. 

— Classes et établissements spécialisés. 


OBJECTIFS : 
1- Déclenchement de la synthèse, de la 
découverte du “Savoir-Lire”, du mécanisme 
de la lecture. 

2- Etude systématique des lettres et des sons 
: lecture et effet sur l'orthographe d'usage. 
3- Construction et lecture de phrases : 
lecture syntaxique. 

4- Vérification de la compréhension du sens 
de petits textes. 


Réf. MC 80 CPC 


ANGLAIS - ALLEMAND - ITALIEN - ESPAGNOL PRIMAIRE 


niveau primaire et débutant 


Ce logiciel est destiné aux élèves des clas- 
ses primaires et début sixième et devrait D = Ne haies 
leur permettre d'apprendre les premiers mots . | ; D eue. 


de vocabulaire et les premières notions de | : head 
SR ar ns 
conjugaison. 


fingers 
House er 


- DICTIONNAIRE (6 thèmes) ES 


thiqn 
Couleurs, nombres, animaux, vêtements, È ques 


Lu 
corps, divers. 4 23" 


— PHRASES à compléter (6 thèmes). 
— TEXTES : Histoires à ranger dans l’ordre 
chronologique. + Possibilité d'en créer. 


— CONJUGAISON : Au présent simple de 7 verbes courants. 
Options Consultation et interrogation. Nombreux dessins et graphiques. 


Réf. anglais : MC 99 CPC _200F Réf. italien : MC 96 CPC___200F 
Réf. allem. : MC 97 CPC__200F Réf. espag. : MC 95 CPC __200F 





ANGLAIS 43 


niveau 4è et 5è 


CONJUGAISON : 

- Visualisation de phrases décomposées {sujet, verbe, complément). 

— Règles d'application des temps avec exemples, inerrogation et ajout de phrases. 
VERBES IRREGULIERS : 

- Visualisation et recherche. 

— interrogation. 

— Possibilité de modifier le fichier. 


Réf. MC 94 CPC 200 F 
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SCIENCES PRIMAIRES 


L'homme 
niveau primaire 


— Les sens 

— Les os 

— Les muscles 

- La digestion 
- Les dents 

- La respiration 
— La circulation 


Consultation et interrogation avec schémas et 
graphiques. 


Réf. MC 98 CPC 200 F 


LES SENS 1 


Le nez est l'organe de 
l'ODORAT. 

La peau est l'organe du 
TOUCHER. 


L'oreille est l'organe de 
l'OUTE. 
La langue est l'organe du 


Les yeux sont les organes 





DES LOGICIELS NIVEAU MATERNELLE, PRIMAIRE ET SECONDAIRE 








NIVEAU MATERNELLE 
ET PRIMAIRE 


EDUC-MATERNELLE-1. 
QUANPELENE 





Logiciel orienté sur la reconnaissance de la graphie des lettres et 
des nombres. 


— Apprentissage des lettres de l'alphabet avec image associée à 
chaque lettre. - Apprentissage des nombres de 1 à 9. 


EDUC-MATERNELLE-2. NIVEAU 





— Reconstituer des séries d'imoges. - Reconstituer des 
mois. — Reconstituer des séries de nombres de 1 86. 


L'enfant exerce son esprit d'analyse et découvre les règles qui 
régiront ses premiers apprentissages comme l'organisation du tra- 
vail écrit sur une page, le sens de lo leciure et de l'écriture, le re- 
tour à la ligne. 


MATHS-CE. NIVEAU CE1 CE2. 





Ce logiciel propose plusieurs points d'exercices de niveau cours 
élémentaire. 


— Ranger des nombres en ordre croissant et décroissant —- Com 
parer des nombres (supérieur inférieur) sommes produits - Comp- 
ter pas à pas (1, 2, 5, 10, 20, 40...) - Calculs sur les opéra 
tions élémentaires [tableau de double entrée) - Compter la mon- 
naie - Lire et afficher l'heure - Déplacer une tortue [exéculer et 
retrouver) — Symétries oxiales. 


REA 






Ce logiciel comprend des modules sur les calculs (opérations, 
fractions…] ou la géométrie (symétries sur repère orthonomé avec 
possibilité de construction de figures.…] - Opérations verticales 
sur des entiers [avec retenue] — addition — soustraction — multipli- 
cation - division 

- Fractions simples : 

— sur des parties de rectangles, de camemberts - fractions équi- 
valentes — numérateurs d'une fraction. 

— Calculs d'oires : 

— carré - rectangle. avec explication des formules en cas d'er- 
reur 

— Calculs de volume 

— Symétrie (centrale et axiale) 

— Suites proportionnelles 

— Pourcentages 


FRANÇAIS-SONS. NIVEAU CP CE1 CE2. 
Cdi 






1 — Compléter des mots avec les sons ou syllabes qui convien- 
nent ovec choix entre deux sons ressemblants. 


2 - Compléter des phrases avec des mois à choisir dans des 
séries de même consonance 


3 - Sélectionner dans des phrases les mots oyant les sons indi- 
qués. 

Une série de sons avec niveau de difficulté progressif peuvent 
convenir aux élèves des classes de CP pour l'option 1 et aux 
élèves de CE1 CE2 pour les options 2 et 3. 


ORTHO-CM. NIVEAU CE2 CM1 CM2 





Ce logiciel permet d'apprendre les règles principales de l'ortho- 
graphe en complétant des phrases (19 règles ex : à ou a, on ou 
ont….]. 


A choque faute, une explication est donnée à l'élève sous la 
forme d'une question de remplacement qui lui permettra de com 
prendre son erreur. A lout moment, celte règle pourra être afi- 
chée pour explication. 


FRANÇAIS-CM. NIVEAU CM1 
CM? SIXIEME 








1 - Dictée : cette option permet à un instituteur ou à un parent de 
dicter un texte à l'élève avec correction automalique après une 
eu deux foules sur choque lettre {au choix] et avec compiage des 
aules. 

Un fichier niveau CM1 CM2 de 20 dictées est fourni avec ce lo- 
giciel mais une option de création permet de créer des dictées 
de tout niveau. 

Une option lecture permet également de lire les textes de ce fi- 
chier. 

2 - Porticipes passés avec ÊTRE et AVOIR : Cette option permet 
d'apprendre à accorder les participes passés avec les verbes 
ETRE et/ou AVOIR avec sujet, complément d'objet direct ou indi- 
rect, masculin ou féminin, singulier ou pluriel. 

A choque foule, une explication du corrigé sera visualisée. 

Un fichier de phroses est également fourni, ainsi qu'une option 
permettant la création de ses propres fichiers d'exercices. 


3 - Conjugaison : ce module permet à l'élève d'apprendre à 
M Lt les verbes des 3 groupes aux temps de son choix [im 
parfait, futur antérieur, présent.) sous la forme de phrases à 
compléter. 

A chaque faule, une explication sera visualisée et le compioge 
de poinis opparañro à la fin de l'exercice. 


GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 





Cours et exercices suivont niveou : 

Le Soleil — La Terre - Les points cardinaux -— Les saisons — Le relief 
- Les cours d'eau et les mers en France - Les ports en France 
-— Les grandes villes — Les pays frontaliers. 


_LECTURE 





-CP - NIVEAU MATERNELLE CP_ 
MC 20 CPC disk 200 F 





Logiciel permettant de familiariser les 1ous jeunes lecteurs à la re- 
constitution, la compréhension et la siruciure d'une phrase. 











NIVEAU 
SECONDAIRE 





Ce logiciel traite des notions de fonctions et naïure des groupes 
de mois constituant la phrase (sujet, verbe, complément... 

- Apprentissage avec rappel de cours adapté à chaque situation 
— Révision générale 

Les 220 phrases contenues dans ce logiciel sont réparties en 
2 niveaux et couvrent plus de 1400 questions. Au niveau 1, l’uti- 
lisateur peut commencer en CM2 


MATHS-6. ALGEBRE 





— Opérations + — X / — Fractions - Calculs d'aires - Cakuls sur 
les relatifs — Pourcentoges ovec graphismes - Suites proportion- 
nelles avec graphisme — Symélries orthogonoles. 


MATHS--5. NIVEAU 5EME 
(NOUVEAU PROGRAMME) 





Fractions - Nombres relatifs - Volumes - Echelles et vitesses — 
Angles - Symélries centrales 


MATHS-54. ALGEBRE 
POUR LES CLASSES DE 5EME ET 4EME. 





- Multiples et diviseurs d'un entier - Nombres premiers — Puis- 
sonces d’un entier noiurel - Décomposition d'un entier noivrel 
-— P.G.C.D. et P.P.C.M. - Colculs algébriques 

— Rotionnels {simplificotions et opérations de fractions) - Equo- 
tions et inéquations dans R 
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MATHS-3. ALGEBRE 
POUR LA CLASSE DE 3EME. 





— Constructions de vecteurs - Calculs sur les droites - Systèmes 
linéoires 2,2 - SG du plan - Calculs sur les racines 
carrées - Notions de tigonométrie. 


EQUATIONS. ALGEBRE POUR LES 





— Equations du second degré avec interprétation graphique - Sys- 
tème linéaires 2.2 - Systèmes linéaires à n équations p inconnues 
{n,n<8) 


MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 
07 CPC disk 250 





— Equations du second degré avec interprétation graphique - Courbe 
Y — HX) avec choix du repère et des unités — Intégroles par la mé- 
thode des rectangles avec interprétation graphique et exercices 
- Suites récurrentes avec graphisme — Fonctions réciproques 


MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALE 


C.0B CPC disk 200 





— Images por application affine - Courbes avec options {dont 
hardcopy} - Courbes superposées - Courbes définies par mor- 
ceoux — Familles de courbes - Courbes planes {cinématique) 
— Courbes définies par une intégrale 


GEOMETRIE PLANE ET ESPACE ET SOLIDE. 
NIVEAU 4EME A TERMINALE 


MC 09 CPC disk 200 


Deux logiciels accompagnés d'explications détaillées : 

— Un utilitaire de dessin géométrique pour tracer points, droites, 
segments et cercles, le À Ar TRACER à la règle et au com 
pas» accompagné de commentaires et de tous les résullais de 
géométrie analytique. Une figure peut être sauvegordée ou impri- 
mée. 

Huit exemples classiques de constructions géométriques accom 
pagnent cet utilitaire (bissectrices, tangentes…]. 

— Une étude por le dessin des TRANSFORMATIONS GEOME- 
TRIQUES {tronslations, homoihétie, rotation, symétrie axiale et cen- 
trole, similitude} sur des figures simples (carré, triangle, losonge…]. 






Dessin géométrique dons l'espace : 

— Utilitaire de dessin pour tracer points, droites, segments et plans 
accompagnés de commeniaires éventuels avec possibilité de sau- 
vegorde et d'impression. La partie importanie est la perspective 
choisie. 

- La perspective «fil de fer» qui permet de refaire le tracé sous 
des ongles différents. 

- La perspective avec les plans colorés qui donne une meilleure 
visualisation. 


Une représentation de SOLDES dans l'espace avec : 

— Entrée du solide de voire choix 

— Impression de fichiers de données 

— Choix des angles de perspectives 

— Des exemples de solides {solides de PLATON, étoile de KLE- 
PER...) 





Ce logiciel comprend une parie Questionnaire à choix multiples 
el une partie Liste de vocabulaire. 

QCM. 

Permet de tesler ses connaissonces 

— 3 fichiers de culture générale 

— 1 fichier sur la Révolution française 

— 1 fichier sur la langue anglaise 

VOCALST 

Permet de tester ses connaissances sur les langues 

— 3 fichiers ANGLAIS-FRANCAIS 

Il'est possible de créer ses propres Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les langues. 


BON DE GOMMANDE 


Pour chaque article, entourez le ou les n° choisis. 
ANCIENS Nos AMSTAR & CPC 

N° 26 - 27 - 28-29 - 30 - 31 - 32 - 33 - 34 

35 — 36 - 37 - 38 - 39 - 40 - 41 - 42 - 43 


DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24-25-26-27 -28 
{une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 


ANCIENS Nos AMSTAR 
N°5-6-8-9-10-11 
12-13-14-15 
16-17-18-19-20-21 
22-23-24-25 


DISQUETTES AMSTAR 
N° 1 (du n° 1 au 8 inclus) — N° 2 (du n° 9 au 16 indus) 
N° 3 (du n° 17 au 25 inclus) 


ANCIENS Nos CPC 
N°10-11-13-16-18-23-24-25-26 
27-28-29-30-31-32-33-34-36-37 


ANCIENS Nos HORS-SERIE CPC 
N°4-7-8-9-10-11-12-13-14-15-16 

N°17 -18-19-20 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17 
18 - 19 {une disquette réunit 2 numéros consécutifs de CPC) 


HS1 - HS2 - HS3 — HS4 - HSS - HS6 — HS7 - HSB - HS9 - HSIO-HSI1 
HS12-HS13 -HS14-HS15 - HS16 - HS17 - HS18 - HS19 - HS20 


ABONNEMENT 6 DISQUETTES {non rétroactif) 


DISQUETTES “ARCADES”” Téléchargement AMSTRAD CPC 
Câble pour téléchargement 


Abonné 
Non abonné 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 


CT SR COTE TON ETAT EE Te) Dre) ETNETETI Te TES 
supplément forfaitaire de 10 % par article 


A expédier à : Editions SORACOM 


La Haie de Pan - 35170 BRUZ 


25 F {unité) 
26 F (unité) 


110 F (unité) 
140 F {unité) 


15 F (unité) 
18 F (unité) 
20 F {unité) 
22 F (unité) 


110 F {unité) 


25 F [unité] 


15 F (unité) 
17 F (unité) 


Abonné : 
110 F (unité) 
Non abonné : 
140 F (unité) 


600 F 


60F 
89F 


Franco 
Franco 


Franco 
Franco 


Franco 
Franco 
Franco 
Franco 


Franco 


Franco 


Franco 
Franco 


Franco 
Franco 
Franco 


5F 
5F 


Q Facultatif : recommandé + 10 F par commande 


MONTANT GLOBAL 


Je joins mon règlement :  OQ chèque bancaire  Q chèque postal  Q mandat 


PAYEZ PAR CARTE BANCAIRE Nom : 


Date d'expiration | 1 | ; | 


[inscrire les numéros de la carte, la dale et signer) 


Adresse : 
Signature 


Code Postal : __________ Ville: 
ECRIRE EN MAJUSCULES 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
tèle de ne pas ograler les chèques, et de ne rien inscrire au dos. 


Commande: La commande doit comporter tous les renseignements demand s eur le bon de commande (d signation our f rence si celle-ci existe). Toute absence de pr cisions est sous la responsabilit de acheteur. La vente es 
conclue d 8 acceptation du bon de commande par notre soc t , sur les artides ent. 

creme du jour de la parution du catalogue jusqu au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libell de nos tarifs au moment de la fabrication du catalogue, et de 
Livraison :Laivraleon intervient apr s le r glement. Les d lais de ivraison tant de 10 15jours environ, SORACOM ne pourra tre tenue pour responsable des retards dus aux transporteurs ou aux gr ves des services postaux. 
Transport :La marchandise voyage aux risques et p rs du destinataire. La livraison se faisant par colis postal ou par traneporteur. Les prix Indiqu s sur le bon de commande sont valables sur toute la France m tropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous r servons la possibilit d ajuster le prix de transport enfonction du co tr el de celui-ci. Pour b n ficier de recours possible nous invitons notre aimable client le -opter pour 
l'envoi en recommand . A r ception des paquets, toute d t rioration doit tre signal e. 


Signature 











_ TELECHARGEZ 


LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 
ET CPC HORS SERIE 


on 


L A f 
SIGNER 





Simple, rapide, efficace : ILE ET 
Téléchargez les listings publiés dans ru ) A). ) 


le mensuel Amstar & CPC et dans le APE LARAEE 
bimestriel CPC Hors Série. p K ec) 7:\, AI V \ ED 
Il vous suffit pour cela de notre logi- Vlevt')- 
ciel ARCADES, et d’un câble de liai- AN "4 ®) L 4 = 


son minitel-CPC que nous pouvons vous e T4bLd/e\" 
fournir. D | 1 402 | | | WU | 
Sur 36 15 Arcades, des jeux et des 

utilitaires, du son et du graphisme. 





ATTENTION : Seul le câble Arcades fonctionne avec le 
logiciel de téléchargement. 


LA COMMUNICATION 
C’EST NOTRE METIER 





130 F + port 
| p 


Module serrure 


Re 3 S (bien indiquer la boîte) 
Plaquettes ÿ 
couleur — 


(lot de 3) 





combinaison des modules 





